Web Adreslerini Açma

[ßyMesMes]

Web adresleri nasıl açılır ( Bi Butonun veya Labelın Click Olayına Ekleyin )

Dim iRet As Long 
Dim Cevap As Integer 
Cevap = MsgBox("www.webhocam.com adresini açmak istiyor musunuz?", vbInformation + vbYesNo, www.webhocam.com ) 
Select Case Cevap 
Case vbYes 
iRet = Shell("start.exe http://www.webhocam.com", vbNormal ) 
Case vbNo 
Exit Sub 
End Select

 

[darki2696]

Tşkler...

 

[cskn192]

Teşekkürler.

 

[hacker_furkan]

Teşekkürler

 

[ßyMesMes]

Sağolun.