Client~Side
No inicio do modGameLogic adicione:
E no final:
Creditos
Ricardo (eu \õ/)
No inicio do modGameLogic adicione:
- Código:
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
E no final:
- Código:
Public Function Site(ByVal WebSite As String) As Boolean
WebSite = "http://" & WebSite
Site = (ShellExecute(0, "open", WebSite, vbNullString, vbNullString, vbNormalFocus))
End Function
Creditos
Ricardo (eu \õ/)