Gente, estou criando um launcher pra um jogo online, até então estava indo bem, só que mudei uns comandos, e agora estou tendo erro Run-Time Error 13, se alguém poder me ajudar, estou fazendo um sistema com .ini O Codigo pra voces entenderem Dim Porta() As String
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nsize As Long, ByVal lpFileName As String) As Long
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
Public Function ReadINI(Secao As String, Entrada As String, Arquivo As String)
'Arquivo=nome do arquivo ini
'Secao=O que esta entre []'Entrada=nome do que se encontra antes do sinal de igual
Dim retlen As String
Dim Ret As String
Ret = String$(255, 0)
retlen = GetPrivateProfileString(Secao, Entrada, "", Ret, Len(Ret), Arquivo)
Ret = Left$(Ret, retlen)
ReadINI = Ret
End Function
Public Sub WriteINI(Secao As String, Entrada As String, Texto As String, Arquivo As String)
'Arquivo=nome do arquivo ini
'Secao=O que esta entre []
'Entrada=nome do que se encontra antes do sinal de igual
'texto= valor que vem depois do igual
WritePrivateProfileString Secao, Entrada, Texto, Arquivo
End Sub
Private Sub Form_Load()
IP = ReadINI("Configurações", "IP", "arquivo.ini")
Site = ReadINI("Configurações", "Site", "arquivo.ini")
Porta() = ReadINI("Configurações", "Site", "arquivo.ini")
Call Winsock1.Connect(IP, Porta(1))
WebBrowser1.Navigate2 (Site)
End Sub
Private Sub Image1_Click()
Call Shell(App.Path & "\main.exe connect", vbNormalFocus)
End Sub
Private Sub Image2_Click()
frmOpções.Show
End Sub
Private Sub Image3_Click()
End
End Sub
Private Sub Image4_Click()
Me.WindowState = 1
End Sub
Private Sub Image5_Click()
End
End Sub
