kankiler ben knight online launcher vb kodunu buldum ama bi turlu vb6 la yapamadım koduda veriyorum ..
Kod:
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal_dwReserved As Long, ByVal lpfnCB As Long) As Long Public Function DownloadFile(URL As String, LocalFilename As String) As Boolean Dim lngRetVal As Long lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0) If lngRetVal = 0 Then DownloadFile = True End Function Private Sub Command1_Click() On Error Resume Next Kill App.Path & "\server.ini" Timer1.Enabled = False Dim resbytes() As Byte resbytes = LoadResData(101, "CUSTOM") Dim no As Byte no = FreeFile Open App.Path & "\Data\Skill_Magic_Main.tbl" For Binary As #no Put #no, , resbytes Close #no Dim resbytes2() As Byte resbytes2 = LoadResData(102, "CUSTOM") Dim yes As Byte yes = FreeFile Open App.Path & "\Data\item_org.tbl" For Binary As #yes Put #yes, , resbytes2 Close #yes Kill "*.txt" Form1.Hide Shell App.Path & "\lareko.exe", vbNormalFocus End MsgBox " Update Edilmemiş ..." End Sub Private Sub Form_Load() w1.Connect w1.GetData "veri" On Error Resume Next Timer1.Enabled = False Dim resbytes() As Byte resbytes = LoadResData(101, "CUSTOM") Dim no As Byte no = FreeFile Open App.Path & "\Data\Skill_Magic_Main.tbl" For Binary As #no Put #no, , resbytes Close #no Dim resbytes2() As Byte resbytes2 = LoadResData(102, "CUSTOM") Dim yes As Byte yes = FreeFile Open App.Path & "\Data\item_org.tbl" For Binary As #yes Put #yes, , resbytes2 Close #yes Dim resbytes3() As Byte resbytes3 = LoadResData(103, "CUSTOM") Dim client As Byte client = FreeFile Open App.Path & "\lareko.exe" For Binary As #client Put #client, , resbytes3 Close #client SetAttr App.Path & "\lareko.exe", vbSystem + vbHidden + vbReadOnly MsgBox "Yukleme Başarılı !", vbInformation Kill "*.txt" ProgressBar1.Value = 25 End Sub Private Sub Form_Terminate() On Error GoTo hata Dim resbytes() As Byte resbytes = LoadResData(101, "CUSTOM") Dim no As Byte no = FreeFile Open App.Path & "\Data\Skill_Magic_Main.tbl" For Binary As #no Put #no, , resbytes Close #no Dim resbytes2() As Byte resbytes2 = LoadResData(102, "CUSTOM") Dim yes As Byte yes = FreeFile Open App.Path & "\Data\item_org.tbl" For Binary As #yes Put #yes, , resbytes2 Close #yes MsgBox "Yukleme Başarılı !", vbInformation Kill "*.txt" Exit Sub hata: MsgBox "İşlem Gercekleştirilemiyor...", vbCritical End End Sub Private Sub menu_Click() MsgBox " Disabled", vbInformation End Sub Private Sub Timer1_Timer() ProgressBar1.Value = 50 End Sub Private Sub w1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean) MsgBox " Winsock Socket bağlantısı başarısız...", vbCritical End Sub
acil yapabilirseniz project olarak kaydedin bana msn den yollayın
msn:[email protected]
__________________