ايران ويج

من یه برنامه دارم که می خوام هر موقع ویندوز بالا اومد اونم بالا بیاد چه جوری اینکارو می تونم بکنم

سلام
هم می تونی از رجیستر استفاده کنی
هم برنامه رو در مسیر C:\Documents and Settings\All Users\Start Menu\Programs\Startup قرار بدی.
البته رجیستر بهتره

یه سر به این آدرس بزن : http://www.developerfusion.com/code/4313...matically/

موفق باشی

مسی
یه سواله دیگه چه جوری می شه یه فایلو کپی کرد

با دستور FileCopy

(۱۴-تير-۱۳۸۸, ۰۸:۰۷:۰۹)mzd72 نوشته است: [ -> ]من یه برنامه دارم که می خوام هر موقع ویندوز بالا اومد اونم بالا بیاد چه جوری اینکارو می تونم بکنم

آقای arashrj درست میگن
با این کد

کد: 
Const REG_SZ = 1

Const REG_BINARY = 3

Const HKEY_CURRENT_USER = &H80000001

Private Declare Function RegCloseKey Lib "advapi32.dll" ( _

 ByVal hKey As Long) As Long

Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" ( _

 ByVal hKey As Long, _

 ByVal lpSubKey As String, _

 phkResult As Long) As Long

Private Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" ( _

 ByVal hKey As Long, _

 ByVal lpValueName As String) As Long

Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" ( _

 ByVal hKey As Long, _

 ByVal lpSubKey As String, _

 phkResult As Long) As Long

Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" ( _

 ByVal hKey As Long, _

 ByVal lpValueName As String, _

 ByVal lpReserved As Long, _

 lpType As Long, _

 lpData As Any, _

 lpcbData As Long) As Long

Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" ( _

 ByVal hKey As Long, _

 ByVal lpValueName As String, _

 ByVal Reserved As Long, _

 ByVal dwType As Long, _

 lpData As Any, _

 ByVal cbData As Long) As Long

Function RegQueryStringValue(ByVal hKey As Long, ByVal strValueName As String) As String

 Dim lResult As Long, lValueType As Long, strBuf As String, lDataBufSize As Long

 lResult = RegQueryValueEx(hKey, strValueName, 0, lValueType, ByVal 0, lDataBufSize)

 If lResult = 0 Then

 If lValueType = REG_SZ Then

 strBuf = String(lDataBufSize, Chr$(0))

 lResult = RegQueryValueEx(hKey, strValueName, 0, 0, ByVal strBuf, lDataBufSize)

 If lResult = 0 Then

 RegQueryStringValue = Left$(strBuf, InStr(1, strBuf, Chr$(0)) - 1)

 End If

 ElseIf lValueType = REG_BINARY Then

 Dim strData As Integer

 lResult = RegQueryValueEx(hKey, strValueName, 0, 0, strData, lDataBufSize)

 If lResult = 0 Then

 RegQueryStringValue = strData

 End If

 End If

 End If

End Function

Sub SaveString(hKey As Long, strPath As String, strValue As String, strData As String)

 Dim StrRet

 RegCreateKey hKey, strPath, StrRet

 RegSetValueEx StrRet, strValue, 0, REG_SZ, ByVal strData, Len(strData)

 RegCloseKey StrRet

End Sub

Private Sub Command1_Click()

 SaveString HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Run", App.ProductName, App.Path & "\" & App.ProductName & ".exe"

End sub

(۱۴-تير-۱۳۸۸, ۲۰:۱۱:۴۰)mzd72 نوشته است: [ -> ]یه سواله دیگه چه جوری می شه یه فایلو کپی کرد

کد: 
'This program needs a Dialog box, named CDBox1

' (To add the Common Dialog Box to your tools menu, go to Project->Components (or press CTRL-T)

' and select Microsoft Common Dialog control)

Private Type FILETIME

 dwLowDateTime As Long

 dwHighDateTime As Long

End Type

Private Type SHFILEOPSTRUCT

 hWnd As Long

 wFunc As Long

 pFrom As String

 pTo As String

 fFlags As Integer

 fAborted As Boolean

 hNameMaps As Long

 sProgress As String

End Type

Private Type SYSTEMTIME

 wYear As Integer

 wMonth As Integer

 wDayOfWeek As Integer

 wDay As Integer

 wHour As Integer

 wMinute As Integer

 wSecond As Integer

 wMilliseconds As Integer

End Type

Private Const GENERIC_WRITE = &H40000000

Private Const OPEN_EXISTING = 3

Private Const FILE_SHARE_READ = &H1

Private Const FILE_SHARE_WRITE = &H2

Private Const FO_DELETE = &H3

Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long

Private Declare Function CreateDirectory Lib "kernel32" Alias "CreateDirectoryA" (ByVal lpPathName As String, lpSecurityAttributes As Long) As Long

Private Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long

Private Declare Function GetFileSize Lib "kernel32" (ByVal hFile As Long, lpFileSizeHigh As Long) As Long

Private Declare Function GetFileTime Lib "kernel32" (ByVal hFile As Long, lpCreationTime As FILETIME, lpLastAccessTime As FILETIME, lpLastWriteTime As FILETIME) As Long

Private Declare Function MoveFile Lib "kernel32" Alias "MoveFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String) As Long

Private Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, lpSecurityAttributes As Long, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long

Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long

Private Declare Function FileTimeToSystemTime Lib "kernel32" (lpFileTime As FILETIME, lpSystemTime As SYSTEMTIME) As Long

Private Declare Function FileTimeToLocalFileTime Lib "kernel32" (lpFileTime As FILETIME, lpLocalFileTime As FILETIME) As Long

Private Sub Form_Load()

 'KPD-Team 1998

 'URL: http://www.allapi.net/

 'E-Mail: KPDTeam@Allapi.net

 Dim lngHandle As Long, SHDirOp As SHFILEOPSTRUCT, lngLong As Long

 Dim Ft1 As FILETIME, Ft2 As FILETIME, SysTime As SYSTEMTIME

 'Set the dialog's title

 CDBox.DialogTitle = "Choose a file ..."

 'Raise an error when the user pressed cancel

 CDBox.CancelError = True

 'Show the 'Open File'-dialog

 CDBox.ShowOpen

 'Create a new directory

 CreateDirectory "C:\KPD-Team", ByVal &H0

 'Copy the selected file to our new directory

 CopyFile CDBox.filename, "C:\KPD-Team\" + CDBox.FileTitle, 0

 'Rename the file

 MoveFile "C:\KPD-Team\" + CDBox.FileTitle, "C:\KPD-Team\test.kpd"

 'Open the file

 lngHandle = CreateFile("C:\KPD-Team\test.kpd", GENERIC_WRITE, FILE_SHARE_READ Or FILE_SHARE_WRITE, ByVal 0&, OPEN_EXISTING, 0, 0)

 'Get the file's size

 MsgBox "The size of the selected file is" + Str$(GetFileSize(lngHandle, lngLong)) + " bytes."

 'Get the fil's time

 GetFileTime lngHandle, Ft1, Ft1, Ft2

 'Convert the file time to the local file time

 FileTimeToLocalFileTime Ft2, Ft1

 'Convert the file time to system file time

 FileTimeToSystemTime Ft1, SysTime

 MsgBox "The selected file was created on" + Str$(SysTime.wMonth) + "/" + LTrim(Str$(SysTime.wDay)) + "/" + LTrim(Str$(SysTime.wYear))

 'Close the file

 CloseHandle lngHandle

 'Delete the file

 DeleteFile "C:\KPD-Team\test.kpd"

 With SHDirOp

 .wFunc = FO_DELETE

 .pFrom = "C:\KPD-Team"

 End With

 'Delete the directory

 SHFileOperation SHDirOp

 End

End Sub

ببخشید دوست عزیز وی بی من ویروسی بود وگرنه واست نمونه می ذاشتم

(۱۴-تير-۱۳۸۸, ۲۰:۳۲:۳۰)ajlajlajl نوشته است: [ -> ]با دستور FileCopy

یکم توضیح بیشتر

کد: 
FileCopy(Source As String, Destination As String)

اول مبدا و بعد مقصد رو میدید. همین. اینم مثال

کد: 
Call FileCopy("c:\a.txt", "c:\a2.txt")

(۱۴-تير-۱۳۸۸, ۲۱:۰۵:۰۲)ajlajlajl نوشته است: [ -> ]
کد:
FileCopy(Source As String, Destination As String)
اول مبدا و بعد مقصد رو میدید. همین. اینم مثال

کد:
Call FileCopy("c:\a.txt", "c:\a2.txt")

مرسی مشکلم حل شد

کد: 
من یه برنامه دارم که می خوام هر موقع ویندوز بالا اومد اونم بالا بیاد چه جوری اینکارو می تونم بکنم

آقای arashrj درست میگن

با این کد

کد:

Const REG_SZ = 1

Const REG_BINARY = 3

Const HKEY_CURRENT_USER = &H80000001

Private Declare Function RegCloseKey Lib "advapi32.dll" ( _

ByVal hKey As Long) As Long

Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" ( _

ByVal hKey As Long, _

ByVal lpSubKey As String, _

phkResult As Long) As Long

Private Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" ( _

ByVal hKey As Long, _

ByVal lpValueName As String) As Long

Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" ( _

ByVal hKey As Long, _

ByVal lpSubKey As String, _

phkResult As Long) As Long

Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" ( _

ByVal hKey As Long, _

ByVal lpValueName As String, _

ByVal lpReserved As Long, _

lpType As Long, _

lpData As Any, _

lpcbData As Long) As Long

Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" ( _

ByVal hKey As Long, _

ByVal lpValueName As String, _

ByVal Reserved As Long, _

ByVal dwType As Long, _

lpData As Any, _

ByVal cbData As Long) As Long

Function RegQueryStringValue(ByVal hKey As Long, ByVal strValueName As String) As String

Dim lResult As Long, lValueType As Long, strBuf As String, lDataBufSize As Long

lResult = RegQueryValueEx(hKey, strValueName, 0, lValueType, ByVal 0, lDataBufSize)

If lResult = 0 Then

If lValueType = REG_SZ Then

strBuf = String(lDataBufSize, Chr$(0))

lResult = RegQueryValueEx(hKey, strValueName, 0, 0, ByVal strBuf, lDataBufSize)

If lResult = 0 Then

RegQueryStringValue = Left$(strBuf, InStr(1, strBuf, Chr$(0)) - 1)

End If

ElseIf lValueType = REG_BINARY Then

Dim strData As Integer

lResult = RegQueryValueEx(hKey, strValueName, 0, 0, strData, lDataBufSize)

If lResult = 0 Then

RegQueryStringValue = strData

End If

End If

End If

End Function

Sub SaveString(hKey As Long, strPath As String, strValue As String, strData As String)

Dim StrRet

RegCreateKey hKey, strPath, StrRet

RegSetValueEx StrRet, strValue, 0, REG_SZ, ByVal strData, Len(strData)

RegCloseKey StrRet

End Sub

Private Sub Command1_Click()

SaveString HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Run", App.ProductName, App.Path & "\" & App.ProductName & ".exe"

End sub

این برنامه کار نداد ارور میده میشه پروژهشو بزاری

سلام

کد: 
من یه برنامه دارم که می خوام هر موقع ویندوز بالا اومد اونم بالا بیاد چه جوری اینکارو می تونم بکنم

آقای arashrj درست میگن

با این کد

کد:

این چند خط رو اول پاک کنین ،
بعد یه Command بزارید رو فرم ؛
برنامه رو ذخیره کنید ،

سلام به همه دوستان من یک فایل bat دارم کار این فایل این است که وقتی اجرا بشه فایروال ویندوز راخاموش می کنه.

سوال:می خوام وقتی این فایل رادرسیستم کپی کردم دو کارانجام بده 1-به صورت اتوماتیک ودر زمان خاصی اجرا بشه 2-وقتی که طرف ویندوز عوض می کنه یک backup ازاین فایل ساخته بشه واتوماتیک اجرابشه یا در ریجستری ویندوز ثبت بشه دقیقا شبیه ویروس autorun.inf عمل کنه یا به صورت اتوماتیک اجرابشه یا اینکه باباز کردن پنجره ی internet explorer فایل مورد نظراجرابشه

از دوستان واساتید برنامه نویسی خواهشمندم راهنمایی کنید.در ضمن بنده برنامه نویسی بلدنیستم وگرنه مزاحم نمی شدم

اگردستورات به صورت vbs یاbach file باشه ممنون می شم چون کمی با دسترات cmd آشنایی دارم وراحت متوجه میشم

mzd72

arashrj

mzd72

ajlajlajl

toopdanlod

mzd72

ajlajlajl

mzd72

iman_yakoza

babyy

fn2008