ثبت کليد هايي که توسط کاربر فشرده شده به صورت کلاينت و سرور
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
کد:http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=54538&lngWId=1
منبع : www.pscode.com
Printable View
ثبت کليد هايي که توسط کاربر فشرده شده به صورت کلاينت و سرور
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
کد:http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=54538&lngWId=1
منبع : www.pscode.com
نمایش اطلاعات رم
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
کد:http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=54400&lngWId=1
منبع : www.pscode.com
پیدا کردن سریال ویندوز 98
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
کد:http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=58445&lngWId=1
منبع : www.pscode.com
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
This is an example of a method for developing a serial based registration/activation for your software. It develops a 25 digit using the hard disk serial number of the user, and a ProductID which you supply. The user is provided with a request code, which is sent to you, and you send back the serial based on the request code. I've found it to work pretty well. Though I would share it with everyone else. There is negligible commenting in the code, however use the note and help utility to see how the code works, and how each process takes place. Easy to manipulate to meet your need. Hope it's of some use to someone... **UPDATED - Version 1.2** Added new features such as digit swapping and label previews. Also changed certain routines. **UPDATED AGAIN - Version 1.5** Added sample registration form. Good example of how to allow users to paste the whole key into one textbox, and have the program split it to fill up all 5 appropriately...
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
کد:http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=54088&lngWId=1
منبع : www.pscode.com
پیدا کردن پسورد ویندوز 98
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
کد:http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=53660&lngWId=1
منبع : www.pscode.com
مدیریت استارت آپ ویندوز(ساده)
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
کد:http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=60209&lngWId=1
منبع : www.pscode.com
فایروال برای وندوز xp
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
کد:http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=57199&lngWId=1
منبع : www.pscode.com
کار با تقویم بدون استفاده از هیچگونه فایل dll و ocx
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
کد:http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=59877&lngWId=1
منبع : www.pscode.com
MrJamshidy
خیلی ممنون
حالا چرا قاطي مي كني .....؟نقل قول:
فكر كردم رشته شما كاميوتر يا يه چيزي تو اين مايه هاس...../
ميشه يه سورس بذاري كه يه فرم ساده باشه و هر دفعه با ويندوز بياد بالا؟؟؟؟؟؟؟؟........../
... و خداوند سرچ را آفرید!!!!!!!!نقل قول:
ميشه يه سورس بذاري كه يه فرم ساده باشه و هر دفعه با ويندوز بياد بالا؟؟؟؟؟؟؟؟........../
تو این زمینه خیلی بحث شده
کد:http://forum.p30world.com/showthread.php?t=209229
کد:http://forum.p30world.com/showthread.php?t=215474
خیلی ممنون که سوالات حرفه ای دوستان رو جواب میدین ... سوال من تو این تایپ مطرح شده ممنون میشم بهم کمک کنید .
سلام
پیداش کردم اینم api فرمت درایونقل قول:
هرکس که تواند API فرمت را پیدا کند.......
یک در دنیا و 100 در آخرت.....
آرش(م)
فقط تستش نکردم شرمنده ، خودت تستش کن نتیجه رو بگو.
کد:
'**************************************
'Windows API/Global Declarations for :cm
' dFormatDrive
'**************************************
Private Declare Function SHFormatDrive Lib "shell32" _
(ByVal hwnd As Long, ByVal Drive As Long, ByVal fmtID As Long, _
ByVal options As Long) As Long
Private Declare Function GetDriveType Lib "kernel32" Alias _
"GetDriveTypeA" (ByVal nDrive As String) As Long
'**************************************
' Name: cmdFormatDrive
' Description:Format Floppy Disk using A
' PI:Here is the code on How to Format Flo
' ppy Disk using API. Note -- This code ca
' n format your Hard Disk as well, so you
' should be careful!!!!
' By: Duncan Diep
'
'This code is copyrighted and has' limited warranties.Please see http://w
' ww.Planet-Source-Code.com/vb/scripts/Sho
' wCode.asp?txtCodeId=68&lngWId=1'for details.'**************************************
Add 1 command button named :
cmdFormat
Private Sub cmdFormatDrive_Click()
Dim DriveLetter$, DriveNumber&, DriveType&
Dim RetVal&, RetFromMsg%
DriveLetter = UCase(Drive1.Drive)
DriveNumber = (Asc(DriveLetter) - 65) ' Change letter To Number: A=0
DriveType = GetDriveType(DriveLetter)
If DriveType = 2 Then 'Floppies, etc
RetVal = SHFormatDrive(Me.hwnd, DriveNumber, 0&, 0&)
Else
RetFromMsg = MsgBox("This drive is Not a removeable" & vbCrLf & _
"drive! Format this drive?", 276, "SHFormatDrive Example")
Select Case RetFromMsg
Case 6'Yes
' UnComment to do it...
'RetVal = SHFormatDrive(Me.hwnd, DriveNu
' mber, 0&, 0&)
Case 7'No
' Do nothing
End Select
End If
End Sub
Add 1 ListDrive name Drive1
Private Sub Drive1_Change()
Dim DriveLetter$, DriveNumber&, DriveType&
DriveLetter = UCase(Drive1.Drive)
DriveNumber = (Asc(DriveLetter) - 65)
DriveType = GetDriveType(DriveLetter)
If DriveType 2 Then 'Floppies, etc
cmdDiskCopy.Enabled = False
Else
cmdDiskCopy.Enabled = True
End If
End Sub
کنترل موس بوسیله کلید های جهت نمای صفحه کلید
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
کد:http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=54126&lngWId=1
منبع : www.pscode.com
غیر فعال کردن task manager (میدونم تکراریه گفتم شاید بعضی ها ندونن)
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
کد:http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=52303&lngWId=1
منبع : www.pscode.com
مخفی کردن قسمت های مختلف taskbar
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
کد:http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=52640&lngWId=1
منبع : www.pscode.com
رقص نور صفحه کلیدی!!
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
کد:http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=53316&lngWId=1
منبع : www.pscode.com
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
کد:http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=54125&lngWId=1
منبع : www.pscode.com
هدف این مثال اینکه روش های مختلف استفاده از textbox رو به مبتدی ها یاد بده
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
کد:http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=53022&lngWId=1
منبع : www.pscode.com
برای اینکه عمل switch User تو ویندوز XP رو تو VB انجام بدید
کافیه این یه خط رو بنویسید
کد:Shell Environ("windir") + "\system32\rundll32.exe user32,LockWorkStation"
بدست آوردن سریال سی دی ویندوز xp
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
کد:Option Explicit
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) 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
' Note that if you declare the lpData parameter as String, you must pass it By Value.
Private Const REG_BINARY = 3
Private Const HKEY_LOCAL_MACHINE = &H80000002
Private Const ERROR_SUCCESS = 0&
'sGetXPCDKey() -
'Returns the Windows XP CD Key if succes
' sful.
'Returns nothing upon failure.
Public Function sGetXPCDKey() As String
'Read the value of:
'HKLM\SOFTWARE\MICROSOFT\Windows NT\Curr
' entVersion\DigitalProductId
Dim bDigitalProductID() As Byte
Dim bProductKey() As Byte
Dim ilByte As Long
Dim lDataLen As Long
Dim hKey As Long
'Open the registry key: HKLM\SOFTWARE\MI
' CROSOFT\Windows NT\CurrentVersion
If RegOpenKey(HKEY_LOCAL_MACHINE, "SOFTWARE\MICROSOFT\Windows NT\CurrentVersion", hKey) = ERROR_SUCCESS Then
lDataLen = 164
ReDim Preserve bDigitalProductID(lDataLen)
'Read the value of DigitalProductID
If RegQueryValueEx(hKey, "DigitalProductId", 0&, REG_BINARY, bDigitalProductID(0), lDataLen) = ERROR_SUCCESS Then
'Get the Product Key, 15 bytes long, off
' set by 52 bytes
ReDim Preserve bProductKey(14)
For ilByte = 52 To 66
bProductKey(ilByte - 52) = bDigitalProductID(ilByte)
Next ilByte
Else
'ERROR: Could not read "DigitalProductID
' "
sGetXPCDKey = ""
Exit Function
End If
Else
'ERROR: Could not open "HKLM\SOFTWARE\MI
' CROSOFT\Windows NT\CurrentVersion"
sGetXPCDKey = ""
Exit Function
End If
'Now we are going to 'base24' decode the
' Product Key
Dim bKeyChars(0 To 24) As Byte
'Possible characters in the CD Key:
bKeyChars(0) = Asc("B")
bKeyChars(1) = Asc("C")
bKeyChars(2) = Asc("D")
bKeyChars(3) = Asc("F")
bKeyChars(4) = Asc("G")
bKeyChars(5) = Asc("H")
bKeyChars(6) = Asc("J")
bKeyChars(7) = Asc("K")
bKeyChars(8) = Asc("M")
bKeyChars(9) = Asc("P")
bKeyChars(10) = Asc("Q")
bKeyChars(11) = Asc("R")
bKeyChars(12) = Asc("T")
bKeyChars(13) = Asc("V")
bKeyChars(14) = Asc("W")
bKeyChars(15) = Asc("X")
bKeyChars(16) = Asc("Y")
bKeyChars(17) = Asc("2")
bKeyChars(18) = Asc("3")
bKeyChars(19) = Asc("4")
bKeyChars(20) = Asc("6")
bKeyChars(21) = Asc("7")
bKeyChars(22) = Asc("8")
bKeyChars(23) = Asc("9")
Dim nCur As Integer
Dim sCDKey As String
Dim ilKeyByte As Long
Dim ilBit As Long
For ilByte = 24 To 0 Step -1
'Step through each character in the CD k
' ey
nCur = 0
For ilKeyByte = 14 To 0 Step -1
'Step through each byte in the Product K
' ey
nCur = nCur * 256 Xor bProductKey(ilKeyByte)
bProductKey(ilKeyByte) = Int(nCur / 24)
nCur = nCur Mod 24
Next ilKeyByte
sCDKey = Chr(bKeyChars(nCur)) & sCDKey
If ilByte Mod 5 = 0 And ilByte <> 0 Then sCDKey = "-" & sCDKey
Next ilByte
sGetXPCDKey = sCDKey
End Function
Private Sub Command1_Click()
Text1 = sGetXPCDKey
End Sub
بازی Minesweeper
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
کد:http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=53694&lngWId=1
منبع : www.pscode.com
بازی Tetris
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
کد:http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=52740&lngWId=1
منبع : www.pscode.com
شلیک تیر به سمت دسکتاپ
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
کد:http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=54077&lngWId=1
منبع : www.pscode.com
یه مثال برای تغییر رنگ اجسام در شب و روز برای بازی ها
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
کد:http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=54211&lngWId=1
منبع : www.pscode.com