[VB6] Open Site

[Fabr3gas]

Cod: Selectaţi tot

Private Sub Command1_Click()
OpenSite "http://www.tryagain.ro"
End Sub




Sub OpenSite(URL As String)
If Left(URL, 4) = "www." Then URL = "http://" + URL
Shell ("explorer.exe " + URL), vbNormalFocus
Exit Sub
End Sub

[Derek_x]

Prietene , nici macar sa modifici nu poti OpenSite [edited by Crappy,Regula 1.6]
Multumesc ca ne faci reclama . Esti un dulce .

[Crappy]

Vezi ca ai cam incalcat regulamentul ( 1.6 ) . De data asta nu-ti fac nimic insa data viitoare nu mai posta astfel de mesaje . Nu e nicio problema,iti editez eu mesajul .