فرستادن کلیدهای ترکیبی

خیلی وقتها دلمون میخواهد کلیدهای مثل ctrl+v رو سند کنیم اما چه جوری؟؟؟

SendKeys Help
Key Code
------ --------
BACKSPACE {BACKSPACE}, {BS}, or {BKSP}
BREAK {BREAK}
CAPS LOCK {CAPSLOCK}
DEL or DELETE {DELETE} or {DEL}
DOWN ARROW {DOWN}
End {END}
ENTER {ENTER} or ~
ESC {ESC}
HELP {HELP}
HOME {HOME}
INS or INSERT {INSERT} or {INS}
Left ARROW {LEFT}
NUM LOCK {NUMLOCK}
Page DOWN {PGDN}
Page UP {PGUP}
Print Screen {PRTSC}
Right ARROW {RIGHT}
SCROLL LOCK {SCROLLLOCK}
Space { } note space between brackets
TAB {TAB}
UP ARROW {UP}
F1 {F1}
F2 {F2}
F3 {F3}
F4 {F4}
F5 {F5}
F6 {F6}
F7 {F7}
F8 {F8}
F9 {F9}
F10 {F10}
F11 {F11}
F12 {F12}
F13 {F13}
F14 {F14}
F15 {F15}
F16 {F16}

Alt-control-del اینا هم برای:

Key Code
------ --------
Shift +
CTRL ^
ALT %

برا اینکه نشون بدید دو حرف ایی و سی با شیفت فشار داده شدن بنویسید

+(EC)

و برا اینکه بگید حرف ایی با شیفت ولی حرف سی بدون شیفت نوشته شده بنویسید

+EC.

اینم خیلی بدرد میخوره برااینکه بگید یه کلید رو چند دفعه فشار بده مثلا کلید چپ حرکتی رو 40 دفعه فشار بده بنویسید
{LEFT 40}

و
{h 10}

یعنی کلید اچ 10 بار فشار داده شده

رسم چرخ دنده با ویژوال بیسیک

خوب دو ستان عزیز این یکی از سورس هایی است که مربوط به ریاضی هست و کسانی که از ریاضی خوششون میاد حتما از این کد لذت می برند . با چند تکه کد زیر می توانید یک چرخ دنده طراحی کنید . کد های زیر را در یک command بنویسید و بعد اجراش کنید .

Cls

p = 4 * Atn(1(

a = 0

CurrentX = 85 - 35 * -Cos(a(

CurrentY = 50 + 35 * -Sin(a(

f = 1

Do

x = 85 - 35 * -Cos(a(

y = 50 + 35 * -Sin(a(

X1 = 85 - 25 * -Cos(a(

Y1 = 50 + 25 * -Sin(a(

If f = 1 Then

Line -(x, y), BackColor

Else

Line -(x, y), Color

End If

f = f * -1

Line (X1, Y1)-(x, y(

a = a + 2 * p / 20

Loop Until a > 4 * p

a = 0

CurrentX = 85 - 25 * -Cos(a(

CurrentY = 50 + 25 * -Sin(a(

f = 1

Do

x = 85 - 25 * -Cos(a(

y = 50 + 25 * -Sin(a(

If f = 1 Then

Line -(x, y), Color

Else

Line -(x, y), BackColor

End If

f = f * -1

a = a + 2 * p / 20

Loop Until a > 4 * p

Circle (85, 50), 15

برای آزمایش این کد بهتر است پهنای فرم بالا ی 8000 باشد و درازای فرم بالای 5000 .

مخفی کردن فایل در پشت عکس

 

امروز می خوام یه ترفند بهتون یاد بدم که با اون بتونید فایل هاتون رو پشت یه عکس مخفی کنید در این

ترفند اگر روی فایل دابل کلیک کنید فقط یک عکس مشاهده خواهید کرد

برای این کار از دستور زیر در داس DOS استفاده کنید

برای رفتن به داس در منوی RUN دستور CMD را تایپ کنید و بعد از باز شدن داس دستور زیر را تایپ کنید

copy /b photo.jpg+file.zip file.jpg

منظور از کلمه photo در بالا همان عکسی است که باید نشان داده شود و منظور از کلمه file.zip همان فایل زیپ شده است

برای باز کردن این فایل هم کافی است برنامه winrar بر روی سیستم شما نصب باشد

برای باز کردن این فایل بر روی آن راست کلیک کرده و از زیر منوی Open With... گزینه winrar را انتخاب کنید.

روش دوم:

روشی جدید برای مخفی کردن پسوند exe از ادامه فایل تروجان برای این کار شما ابتدا باید فایل تروجان خود را Copy کرده و برنامه Wordpad را اجرا کرده و بعد از ان فایل تروجان خود را در آنجا Paste کنید بعد به این آدرس Edit>Package Object>Edit Package مرا جعه کنید و بعد از باز شدن صفحه مورد نظر به آدرس Edit>Copy Package مراجعه کنید حالا به یکی از درایو ها بروید و و در آنجا راست کلیک کنید و Paste را بزنید خواهید دید که پسوند فایل شما تغییر کرده است . این فایل کارایی همان فایل تروجان با پسوند exe را دارد آما با پسوندی متفاوت،حالا شما می توانید این فایل را از طریق Yahoo Massenger برای قربانی خود بفرستید بدون ابنکه متوجه شود که این فایل یک تروجان است.

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

امروز براتون یه آموزش گذاشتم که به اسونی بتونین فایل ها رو به آسونی فایلها رو مخفی کنین!برای این کار مراحل زیر رو انجام بدین:

برای این کار:

ابتدا از منوی Stat وارد Run شوید. سپس دستور cmd را تایپ نموده و Enter بزنید.
اکنون در داخل CMD کد زیر را وارد کنید و Enter بزنید:

attrib +h +s D:/password35

دقت کنید این کد فولدر password35 را در درایو D مخفی میسازد.
به Space های خورده شده در میان کد نیز دقت کنید.
با این عمل فولدر password35 کاملأ از روی هارد شما مخفی میشود.

در صورتی که میخواهید یک فایل را نیز مخفی کنید کافی است آدرس را بدین شکل وارد کنید:

attrib +h +s D:/Windows/password35

این کد فایل password35.exe را در داخل درایو D و پوشه Windows مخفی میسازد.

به همین سادگی شما میتوانید عملیات مخفی سازی را انجام دهید.

اما چگونه این فایلهای مخفی کرده را بازگردانیم؟
بدین منظور در داخل CMD دستور زیر را وارد کنید تا به ترتیب فایلهای مخفی شده مان آشکار گردند:

attrib -h -s D:/password35

attrib -h -s D:/Windows/password35.exe
نکته:تنها دقت کنید که محل و نام فایل مخفی شده تان فراموش تان نشود چرا که دیگر امکان بازیابی آن وجود ندارد.

شروع برنامه هنگام لود ویندوز

با این کد می تونید برنامه هاتون رو موقع شروع ویندوز صدا بزنید

Private Sub Form_Load()
Dim hregkey As Long
Dim subkey As String
Dim stringbuffer As String

subkey = "Software|Microsoft|Windows|CurrentVersion|Run"

retval = RegOpenKeyEx(HKEY_CURRENT_USER, subkey, 0, KEY_WRITE, hregkey)
If retval <> 0 Then
Debug.Print "Can't open the subkey"
Exit Sub
End If
stringbuffer = App.Path & "" & App.EXEName & ".exe" & vbNullChar
retval = RegSetValueEx(hregkey, "My App", 0, REG_SZ, ByVal stringbuffer, Len(stringbuffer))

RegCloseKey hregkey
End Sub
''''''''''''''''this code goes to a module

Public Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long

Public Declare Function RegCloseKey Lib "advapi32.dll" (ByVal _
hKey As Long) As Long

Public 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

Public Const HKEY_CURRENT_USER = &H80000001
Public Const KEY_WRITE = &H20006
Public Const REG_SZ = 1

فقط یادتون باشه بجای | علامت بک اسلش بزارین

ارسال اطلاعات از نرم افزار به وب سایت

ابتدا شما یه برنامه ساده با vb مینویسید که اطلاعات تو یه تکست باکس رو به یه url ارسال میکنه . به این ترتیب:

Private Sub Command1_Click()
soal = Text1.Text
Shell "explorer.exe ""http://www.ahwazserver.com/save/index.php?import=" & soal & """"
End Sub

بعد از اون باید فایل php که اطلاعات بهش ارسال میشن رو پردازش کنیم و در یه دیتا بیس ذخیره کنیم . کد php فایل index.php بدین ترتیب میشه :

<?
$user = "";
$pass = "";
$database = "database_save";
mysql_pconnect("localhost", $user, $pass);
mysql_select_db($database);
$query = "INSERT INTO `report` values ('$import')";
if (mysql_query($query)) {
  print "Thanks !";
} else {
 print "Error !";
}
?>

اینم کد جدول دیتابیسی که باید ایجاد بشه با نام database_save :

CREATE TABLE `report` (
  `question` text NOT NULL
) TYPE=MyISAM;

البته برنامه رو به دلخواه میشه خیلی تغییرات داد. مثلا اینکه پنجره explorer که برای submit باز میشه بصورت مخفی باشه یا اینکه بجای اینکه اطلاعات دریافتی رو بجای ذخیره در بانک اطلاعاتی در فایل ذخیره کنه یا اصلا اونها رو ایمیل کنه و...

امیدوارم مفید بوده باشه-برگرفته از Iranvig