Ayyıldız2 | 2008 TR Yapısı • 1-99 Orta Emek Destan • Oto Avsız • 10 Temmuz 21:00 HEMEN TIKLA!
Web adresleri nasıl açılır ( Bi Butonun veya Labelın Click Olayına Ekleyin )
Kod:
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
