داغ داغ!!

[kamran11958]

سلام
برنامه زير رو بگيريد
پاسوردهاي ستاره دار رو تو ايكس پي هم نشون مي ده(عجججب!!) كار همون نويسنده ي ترانژواست!!
http://www.partiasoft.com/OpenPassXP.zip
در ضمن طبق تحقيقات من با دلفي نوشته شده!!!!
كسي سورس همچين برنامه اي رو داره؟!
من تمامي توابع آ پي آي رو كه توش به كار رفته براتون مي گم اميدوارم شمام عكس العملي داشته باشين!!!

[Mohamad_VB]

كامران جان چند روز پيش يكي از بچه ها همچين چيزي گذاشته بود اسمش يادم نيست ولي كدهاش زياد نيستن اينم از كدش:


Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function WindowFromPointXY Lib "user32" Alias "WindowFromPoint" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Const EM_SETPASSWORDCHAR = &HCC
Private Const EM_GETPASSWORDCHAR = &HD2
Private Type POINTAPI
X As Long
Y As Long
End Type

Private Sub tmrUnmask_Timer()
Dim pCursor As POINTAPI
Dim hWindow As Long
Dim nRet As Long
Dim szText As String
'inja handel jaee ke mouse hast ro bedast miare
GetCursorPos pCursor
hWindow = WindowFromPointXY(pCursor.X, pCursor.Y)
nRet = SendMessage(hWindow, EM_GETPASSWORDCHAR, 0&, 0&)
If nRet <> 0 Then
'inja ham pass word ro neshon mide
PostMessage hWindow, EM_SETPASSWORDCHAR, 0&, 0&
End If
'be hamin rahati
End Sub

[kamran11958]

سلام مطمني تو ايكس پي جواب مي ده!؟

[ashkan]

حتما راهي داره ولي ...(سعي ميكنم ببينم ميشه توي اينترنت چيزي گير آورد)

[majidmetal]

آقا محمد با اون كدي كه دادي نميشه اين كارو كرد
آره اين سازنده اين برنامه رفيقمه از اون مخ هاست

[majidmetal]

راستي آي پي هاي اون برنامه رو به همين راحتي ها نميشه بدست آورد چون ا سازنده اين برنامه به همين راحتي ها نميذاره دستش رو بشه

[kamran11958]

اگه با وي بي نوشته شده بود مي شد ولي اين دلفي لعنتي به طور پيشفرض قسمت زيادي از آي پي آي ها رو ديكلر مي كنه!!و ديگه كاريش نميشه كرد!!

[Mohamad_VB]

سلام به همه

آقا من اين كدها رو امتحان كردم جواب داده
وقتي برنامه رو اجرا ميكني اون جاهايي كه به صورت پسورد فيلد هستش رو به صورت عادي نشون ميده يعني بدون علامت دايره
البته بايد روي اون تكتس باكس يه كليك هم بكنيد!

فقط كافيه تو فرمتون يه تايمر به اسم tmrUnmask بزارين و اينتروالش رو هم 1 بدين و تمام

[majidmetal]

آقا محمد ميدونم منظورم اينكه با اين كد ها نميشه پسورد ها رو خواند فقط تكس باكس رو به حالت معمولي در مياره.