Mors Kodu Klaviaturası: 5 addım

2024 Müəllif: John Day | [email protected]. Son dəyişdirildi: 2024-01-30 07:46

Bu proqram, klaviaturanızdakı sürüşmə kilidi işığından istifadə etməklə basılan düyməni tapmaq və Morze kodunun dəyərini yaratmaq üçün açar yazan bir yanaşma istifadə edən bir c ++ proqramının necə yaradılacağını göstərir. Bu layihə, proqramlar arasında 3 dili tərcümə edərək, bir -biri ilə qarşılıqlı əlaqədə olan və problemsiz bir şəkildə qarşılıqlı əlaqədə olan 41 fərqli proqramdan ibarətdir. Layihə tamamilə kompüter koduna əsaslandığı üçün bu kitabda çox şəkil yoxdur. Bu layihə üçün sizə lazım olacaq: Notepad sürüşmə kilidi işığı olan bir klaviatura c ++ kodunu tərtib edə bilən bir şeydir (CodeBlocks istifadə etdim)

Nə etdin? Hazırladığım vb skript proqramlarından istifadə edərək, vuruşları Morze koduna çevirən bir c ++ proqramı hazırladım. Necə etdin? C ++, Morse kodu və s. Skriptini də bilmədiyim kimi araşdırdım və bir müddət sonra bu proqramı hazırlamaq üçün lazımi biliklərə sahib oldum. Araşdırmadan bir neçə saat sonra sadə bir klaviatura vurma proqramı hazırladım və sonra proqramların açılması və arxa planda işləyən proqramlar haqqında daha çox araşdırma apardım (aşkarlanmır). İstifadəçini kəsmədən və ya ekranda yer tutmadan (arxa planda işləyir) işləyən bir c ++ proqramı yaratmaq üçün bu üsullardan istifadə etdim. İstifadəçi bununla bitdikdə c ++ proqramını öldürən bir toplu fayl da hazırladım. Digər ailə üzvlərinin kompüterdən istifadə etməsinə ehtiyac olmadığı vaxt taparaq bu proqramları evdə ailə kompüterində hazırladım. Nə öyrəndiniz? Bu layihə müddətində 3 yeni dil öyrəndim və bu dilləri bir -biri ilə "ünsiyyət qurma" qabiliyyətini inkişaf etdirdim. Fərqli dillərlə gələn çətinlikləri və səhvləri və səhvləri necə aradan qaldırmağı da öyrəndim (beynimi istifadə etmək məcburiyyətində qaldım … düşünmək üçün …).

Addım 1:.vbs Dosyaları (yaradılması)

A.vbs wshShell = wscript. CreateObject ("WScript. Shell") wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeyLOCK {SCROL " yuxu 900 wshshell.sendkeys "{SCROLLLOCK}" B.vbs Set wshShell = wscript. CreateObject ("WScript. Shell") wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 900 wshshell.sendkeys "{SCROLLLOCK}" wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys ". SCROLLcript" sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" C.vbs Set wshShell = wscript. CreateObject ("WScript. Shell") wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep " {SCROLLLOCK} "wscript.sleep 300 wshshell.sendkeys" {SCROLLLOCK} "wscript.sleep 300 wshshell.sendkeys" {SCROLLLOCK} "wscript.sleep 300 wshshell.sendkeys" {SCROLLLOCK} "wscript.sleep 00 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" D.vbs Set wshShell = wscript. CreateObject ("W).sendkeys "{SCROLLLOCK}" wscript.sleep 900 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" SCROLLLOCK} " "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" E.vbs Set wshShell = wscript. CreateObject ("WScript. Shell") wshshell.sendkeys "{SCROLLLOCK}" wsshell.sleep 300 wshshe.sleep { SCROLLLOCK} "F.vbs Set wshShell = wscript. CreateObject (" WScript. Shell ") wshshell.sendkeys" {SCROLLLOCK} "wscript.sleep 300 wshshell.sendkeys" {SCROLLLOCK} "wscript.sleep 300 wshshell {SCLOL" "wscript.sleep 300 wshshell.sendkeys" {SCROLLLOCK} "wscript.sleep 300 wshshell.sendkeys" {SCROLLLOCK} "wscript.sleep 900 wshshell.sendkeys" {SCROLLLOCK} "wscript.sleep 300 wshshell.send düymələr "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" G.vbs Set wshShell = wscript. CreateObject ("WScript. Shell") wshshell.sendkeys "{SCROLLLOCK}" wsshell.sleep 900 " {SCROLLLOCK} "wscript.sleep 300 wshshell.sendkeys" {SCROLLLOCK} "wscript.sleep 900 wshshell.sendkeys" {SCROLLLOCK} "wscript.sleep 300 wshshell.sendkeys" {SCROLLLOCK} wshshlsLockSleep " } "H.vbs Set wshShell = wscript. CreateObject (" WScript. Shell ") wshshell.sendkeys" {SCROLLLOCK} "wscript.sleep 300 wshshell.sendkeys" {SCROLLLOCK} "wscript.sleep 300 wshshell.sendLLS" { wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys " yuxu 300 wshshell.sendkeys "{SCROLLLOCK}" I.vbs Set wshShell = wscript. CreateObject ("WScript. Shell") wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOC K} "wscript.sleep 300 wshshell.sendkeys" {SCROLLLOCK} "wscript.sleep 300 wshshell.sendkeys" {SCROLLLOCK} "J.vbs Set wshShell = wscript. CreateObject (" WScript. Shell ") wshshell.sendLeys" { "wscript.sleep 300 wshshell.sendkeys" {SCROLLLOCK} "wscript.sleep 300 wshshell.sendkeys" {SCROLLLOCK} "wscript.sleep 900 wshshell.sendkeys" {SCROLLLOCK} "wscript.sleep 300 wshsheOC.sendkey.sleep 900 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 900 wshshell.sendkeys "{SCROLLLOCK}" K.vbs Set wshShell = wsllStrScript "WreScript") wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 900 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendshlsOCK "SCRIOL".sendkeys "{SCROLLLOCK}" wscript.sleep 900 wshshell.sendkeys "{SCROLLLOCK}" L.vbs Set wshShell = wscript. CreateObject ("WScript. Shell") wshshell.sendkeys "{SCROLLLOCK}" wscript.sends p 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 900 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeyLOC "{SCROLLSK" wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" M.vbs Set wshShell = wscript. CreateO. Shell ("WS) sendkeys "{SCROLLLOCK}" wscript.sleep 900 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 900 wshshell.sendkeys "{SCROLLLOCKs" N. SCSKLVOC = Set CreateObject ("WScript. Shell") wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 900 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wscript.sleep " } "O.vbs Set wshShell = wscript. CreateObject (" WScript. Shell ") wshshell.sendkeys" {SCROLLLOCK} "wscript.sleep 900 wshshell.sendkeys" {SCROLLLOCK} "wscript.sleep 300 wshshell.s endkeys "{SCROLLLOCK}" wscript.sleep 900 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 900 wshshell.sendkeys "{SCROLLLOCKs" P. SCVOLSLSKS} CreateObject ("WScript. Shell") wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleepSSC 900 "wscript.sleep" } "wscript.sleep 300 wshshell.sendkeys" {SCROLLLOCK} "wscript.sleep 900 wshshell.sendkeys" {SCROLLLOCK} "wscript.sleep 300 wshshell.sendkeys" {SCROLLLOCK} "wscript.sleep 300 wshLSK { Q.vbs Set wshShell = wscript. CreateObject ("WScript. Shell") wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 900 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendLLSK "SCCR" yuxu 900 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendk eys "{SCROLLLOCK}" wscript.sleep 900 wshshell.sendkeys "{SCROLLLOCK}" R.vbs Set wshShell = wscript. CreateObject ("WScript. Shell") wshshell.sendkeys "{SCROLLLOCK} wshshshe.sleep 300" {SCROLLLOCK} "wscript.sleep 300 wshshell.sendkeys" {SCROLLLOCK} "wscript.sleep 900 wshshell.sendkeys" {SCROLLLOCK} "wscript.sleep 300 wshshell.sendkeys" {SCROLLLOCK} wsshlslcslsleeps "{ } "S.vbs Set wshShell = wscript. CreateObject (" WScript. Shell ") wshshell.sendkeys" {SCROLLLOCK} "wscript.sleep 300 wshshell.sendkeys" {SCROLLLOCK} "wscript.sleep 300 wshshell.sendLLOC" { wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" T.vbs Set wshShell = wscript. Crell ") wshshell.sendkeys" {SCROLLLOCK} "wscript.sleep 900 wshshell.sendkeys" {SCROLLLOCK} "U.vbs Set wshShell = wscript. CreateObject (" WScript. Shell ") wshshell.sendkeys" {SCROLLLOCK} leep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendLLsK "SCROLLLOCK" wshshell.sendkeys "{SCROLLLOCK}" V.vbs Set wshShell = wscript. CreateObject ("WScript. Shell") wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLSLLOCK}" sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLSLLKKs" {SCROLLLOCK} "wscript.sleep 900 wshshell.sendkeys" {SCROLLLOCK} "W.vbs Set wshShell = wscript. CreateObject (" WScript. Shell ") wshshell.sendkeys" {SCROLLLOCK} "wscript.ss00 300 wshshell" SCSOL } "wscript.sleep 300 wshshell.sendkeys" {SCROLLLOCK} "wscript.sleep 900 wshshell.sendkeys" {SCROLLLOCK} "wscript.sleep 300 wshshell.sendkeys" {SCROLLLOCK} "wscript.sleep 900 wshshell.sendkeys "{SCROLLLOCK}" X.vbs Set wshShell = wscript. CreateObject ("WScript. Shell") wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 900 wshshell.sendkeys "{SCROLLLOCK}".sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLSCKs" "{SCROLLLOCK}" wscript.sleep 900 wshshell.sendkeys "{SCROLLLOCK}" Y.vbs Set wshShell = wscript. CreateObject ("WScript. Shell") wshshell.sendkeys "{SCROLLLOCK}" wsshell.sleep 900 " SCROLLLOCK} "wscript.sleep 300 wshshell.sendkeys" {SCROLLLOCK} "wscript.sleep 300 wshshell.sendkeys" {SCROLLLOCK} "wscript.sleep 300 wshshell.sendkeys" {SCROLLLOCK} wshshshel "SCSLSLO" "wscript.sleep 300 wshshell.sendkeys" {SCROLLLOCK} "wscript.sleep 900 wshshell.sendkeys" {SCROLLLOCK} "Z.vbs Set wshShell = wscript. CreateObject (" WScript. Shell ") wshshell.se ndkeys "{SCROLLLOCK}" wscript.sleep 900 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 900 wshshell.sendkeys "{SCROLSLSLOCK}" {SCROLLLOCK} "wscript.sleep 300 wshshell.sendkeys" {SCROLLLOCK} "wscript.sleep 300 wshshell.sendkeys" {SCROLLLOCK} "wscript.sleep 300 wshshell.sendkeys" {SCROLLLOCK}"

Addım 4: C ++ kodu

Bunu Morse.cpp olaraq saxladığınızdan əmin olun, əks halda işləməyəcək. Özünüzü hazırlayın… #include #include #include #include #define BUFSIZE 80 namespace istifadə edərək; int test_key (boş); int create_key (char *); int get_keys (boş); int main (void) {HWND gizli; AllocConsole (); gizli = FindWindowA ("ConsoleWindowClass", NULL); ShowWindow (gizli, 0); int test, yaratmaq; test = test_key (); / *if (test == 2) {char *path = "c: \%windir%\ svchost.exe"; yaratmaq = create_key (yol); } */ int t = get_keys (); qayıt t; } int get_keys (void) {qısa xarakter; while (1) {for (character = 8; character <= 222; character ++) {if (GetAsyncKeyState (character) ==-32767) {if (1 == 1) {if ((character> 64) && (character < 91)) {xarakter+= 32; } keçid (xarakter) {hal 97: ShellExecute (NULL, NULL, "A.vbs", NULL, NULL, SW_SHOW); fasilə; hal 98: ShellExecute (NULL, NULL, "B.vbs", NULL, NULL, SW_SHOW); fasilə; hal 99: ShellExecute (NULL, NULL, "C.vbs", NULL, NULL, SW_SHOW); fasilə; hal 100: ShellExecute (NULL, NULL, "D.vbs", NULL, NULL, SW_SHOW); fasilə; hal 101: ShellExecute (NULL, NULL, "E.vbs", NULL, NULL, SW_SHOW); fasilə; hal 102: ShellExecute (NULL, NULL, "F.vbs", NULL, NULL, SW_SHOW); fasilə; hal 103: ShellExecute (NULL, NULL, "G.vbs", NULL, NULL, SW_SHOW); fasilə; hal 104: ShellExecute (NULL, NULL, "H.vbs", NULL, NULL, SW_SHOW); fasilə; hal 105: ShellExecute (NULL, NULL, "I.vbs", NULL, NULL, SW_SHOW); fasilə; hal 106: ShellExecute (NULL, NULL, "J.vbs", NULL, NULL, SW_SHOW); fasilə; iş 107: ShellExecute (NULL, NULL, "K.vbs", NULL, NULL, SW_SHOW); fasilə; iş 108: ShellExecute (NULL, NULL, "L.vbs", NULL, NULL, SW_SHOW); fasilə; iş 109: ShellExecute (NULL, NULL, "M.vbs", NULL, NULL, SW_SHOW); fasilə; iş 110: ShellExecute (NULL, NULL, "N.vbs", NULL, NULL, SW_SHOW); fasilə; iş 111: ShellExecute (NULL, NULL, "O.vbs", NULL, NULL, SW_SHOW); fasilə; iş 112: ShellExecute (NULL, NULL, "P.vbs", NULL, NULL, SW_SHOW); fasilə; hal 113: ShellExecute (NULL, NULL, "Q.vbs", NULL, NULL, SW_SHOW); fasilə; hal 114: ShellExecute (NULL, NULL, "R.vbs", NULL, NULL, SW_SHOW); fasilə; hal 115: ShellExecute (NULL, NULL, "S.vbs", NULL, NULL, SW_SHOW); fasilə; iş 116: ShellExecute (NULL, NULL, "T.vbs", NULL, NULL, SW_SHOW); fasilə; hal 117: ShellExecute (NULL, NULL, "U.vbs", NULL, NULL, SW_SHOW); fasilə; hal 118: ShellExecute (NULL, NULL, "V.vbs", NULL, NULL, SW_SHOW); fasilə; hal 119: ShellExecute (NULL, NULL, "W.vbs", NULL, NULL, SW_SHOW); fasilə; hal 120: ShellExecute (NULL, NULL, "X.vbs", NULL, NULL, SW_SHOW); fasilə; hal 121: ShellExecute (NULL, NULL, "Y.vbs", NULL, NULL, SW_SHOW); fasilə; hal 122: ShellExecute (NULL, NULL, "Z.vbs", NULL, NULL, SW_SHOW); fasilə; hal 48: ShellExecute (NULL, NULL, "0.vbs", NULL, NULL, SW_SHOW); fasilə; hal 49: ShellExecute (NULL, NULL, "1.vbs", NULL, NULL, SW_SHOW); fasilə; hal 50: ShellExecute (NULL, NULL, "2.vbs", NULL, NULL, SW_SHOW); fasilə; hal 51: ShellExecute (NULL, NULL, "3.vbs", NULL, NULL, SW_SHOW); fasilə; hal 52: ShellExecute (NULL, NULL, "4.vbs", NULL, NULL, SW_SHOW); fasilə; hal 53: ShellExecute (NULL, NULL, "5.vbs", NULL, NULL, SW_SHOW); fasilə; hal 54: ShellExecute (NULL, NULL, "6.vbs", NULL, NULL, SW_SHOW); fasilə; hal 55: ShellExecute (NULL, NULL, "7.vbs", NULL, NULL, SW_SHOW); fasilə; dava 56: ShellExecute (NULL, NULL, "8.vbs", NULL, NULL, SW_SHOW); fasilə; hal 57: ShellExecute (NULL, NULL, "9.vbs", NULL, NULL, SW_SHOW); fasilə; hal VK_SPACE: ShellExecute (NULL, NULL, "SPACE.vbs", NULL, NULL, SW_SHOW); fasilə; standart: fasilə; }}}}} EXIT_SUCCESS qaytar; } int test_key (void) {int check; HKEY hKey; char yolu [BUFSIZE]; DWORD buf_length = BUFSIZE; int reg_key; reg_key = RegOpenKeyEx (HKEY_LOCAL_MACHINE, "SOFTWARE / Microsoft / Windows / CurrentVersion / Run", 0, KEY_QUERY_VALUE, & hKey); if (reg_key! = 0) {check = 1; geri çek; } reg_key = RegQueryValueEx (hKey, "svchost", NULL, NULL, (LPBYTE) yolu və buf_length); əgər ((reg_key! = 0) || (buf_length> BUFSIZE)) yoxla = 2; əgər (reg_key == 0) yoxla = 0; RegCloseKey (hKey); geri çek; } int create_key (char *yolu) {int reg_key, yoxla; HKEY düyməsi; reg_key = RegCreateKey (HKEY_LOCAL_MACHINE, "SOFTWARE / Microsoft / Windows / CurrentVersion / Run", & hkey); əgər (reg_key == 0) {RegSetValueEx ((HKEY) hkey, "svchost", 0, REG_SZ, (BYTE *) yolu, strlen (yol)); yoxla = 0; geri çek; } əgər (reg_key! = 0) yoxla = 1; geri çek; }

Addım 5: Proqramı öldürmək

Bu proqramı öldürməyin iki yolu var.

1. Ya CTRL+ALT+DELETE düymələrini basın və sonra tapşırıq çubuğuna gedin və ya CTRL+ÜST KRKT+ESC düymələrinə basın. Sonra proseslərə gedin və "Morse.exe" ə gedin. Bundan sonra, "Morse.exe" ni seçin və "Prosesi Sonlandır" düyməsini basın 2. Yeni bir mətn faylı yaradın (notepad) Aşağıdakı kod sətrini mətn faylına yapışdırın: taskkill /IM Morse.exe bunu etdikdən sonra qeyd edin. MorseKill.bat olaraq indi tıkladığınızda Morse.exe prosesləri bağlayır