Informaatika ja IKT tund teemal: "Sissejuhatus programmeerimiskeskkonda Small Basic". Visual Basic Language – koodinäited mis tahes protsessi lõpetamiseks

Tere kõigile, selles artiklis tahan teile näidata kasulikke koode väikeste programmide jaoks. Millega saad ise tõsisemaid programme kirjutada või otsisid just neid siin kirjeldatud funktsioone.

Kõiki koode kasutati programmeerimiskeskkonnas Microsoft Visual Basic v6.0.

Väljuge kinnitusega

Esimest tüüpi programm, kaev või funktsioon, on väljumine koos väljumist kinnitava sõnumiga. Üldjuhul avage programmeerimiskeskkond Visual Basic, looge standardprojekt, seejärel asetage üks nupp vormile, klõpsake nuppu ja avaneb koodi redigeerimise aken ja sinna peate kleepima järgmise koodi:

Piiks Dim sõnum Stringina Dim-nupudsandikoonid As Integer Dim title Stringina Dim response As String teade = "Kas soovite väljuda?" title = "(!LANG:Exit" buttonasicons = vbYesNo + vbQuestion response = MsgBox(message, buttonasicons, title) If response = vbYes Then End End If !}

Parool programmi käivitamiseks

Dim parool, Pword PassWord = "12345" Pword = InputBox ("Sisesta parool") Kui Pword<>Parool Siis MsgBox "Parool pole õige" End End Kui

Kus, 12345 on programmi käivitamise parool. Kuid seda koodi saab kasutada kõikjal, kus soovite.

Sõnumi väljund

Kui soovite lihtsalt millegi kohta sõnumit kuvada, sisestage see:

Piiks Dim sõnum stringina Dim nupudsandikoonid täisarvuna Dim title Stringina sõnum = "Sõnum" title = "(!LANG:Message" buttonasicons = vbOKOnly + vbexciamation MsgBox message, buttonsandicons, title !}

Vormile joonistamine

Privaatne alamvorm_MouseDown(nupp täisarvuna, nihutus täisarvuna, nihutus täisarvuna, X üksikarvuna, Y üksikarvuna) Vorm1.CurrentX = X vorm1.CurrentY = Y lõpp Privaatne alamvorm_MouseMove(nupp täisarvuna, nihutus täisarvuna, X Y asing Üksik) Kui nupp = 1, siis rida (Vorm1.PraeguneX, Vorm1.Praegune)-(X,Y), QBCColor(0) End If End Sub

Värvi saab muuta kasutades QBColor(0) parameetrit, st. asendada 0 mõne teise numbriga.

Arvuti taaskäivitamine

Arvuti taaskäivitamiseks: asetage nupp ja kleepige järgmine kood:

Dim strComputer Stringina strComputer = "." Set objWMIService = GetObject("winmgmts:" & "(impersonationLevel=impersonate, (Shutdown))!\\" _ & strComputer & "\root\cimv2") Set colOperatingSystems = objWMIService.ExecQuery("SelectOperating": Win3ys2_perating Iga ObjOperatingSystem jaotises colOperatingSystems ObjOperatingSystem.Reboot " Taaskäivitamiseks Järgmine

Programmi käivitamine ühes eksemplaris

Järgmine näide aitab teil programmi ainult ühe korra käivitada, s.t. taaskäivitamise korral annab vastava teate. Kleepige vormi kood:

Private Sub Form_Load() If App.PrevInstance = True Siis MsgBox "Projekt on juba alanud!" Lõpp Lõpp Kui

Arvuti väljalülitamine

Arvuti väljalülitamiseks võite kasutada järgmist koodi:

Dim strComputer Stringina strComputer = "." Set objWMIService = GetObject("winmgmts:" & "(impersonationLevel=impersonate,(Shutdown))!\\" _ & strComputer & "\root\cimv2") Set colOperatingSystems = objWMIService.ExecQuery("SelectOperating" Iga ObjOperatingSystem jaotises colOperatingSystems ObjOperatingSystem.ShutDown "Sulgemiseks Järgmine

Lõpetage mis tahes protsess

Protsessi lõpetamiseks võite kasutada järgmist koodi:

Shell "Cmd /x/c taskkill /f /im ICQlite.exe", vbvhite

Kus ICQlite.exe asemel võib olla mis tahes protsess.

Kui kaua arvuti töötab

Järgmine näide selle kohta, kuidas saate määrata arvuti tööaega. See meetod põhineb kernel32 teegi kasutamisel, seega lisage see DLL kohe vormikoodi algusesse.

Privaatne deklareeri funktsioon GetTickCount Lib "kernel32" () nii pikk "Ja nupu koodis: Dim a_hour, a_minute, a_second a = Format(GetTickCount() / 1000, "0") "sekundeid kokku a_päevades = Int(a / 86400) a = a - a_days * 86400 a_hour = Int(a / 3600) a = a - a_hour * 3600 a_minute = Int(a / 60) a_second = a - a_minute * 60 MsgBox "Teie arvuti on töötanud " & Str(a_days) & " päevad " & Str(a_hour) _ & " hours " & Str(a_minute) & " minutes" & Str(a_second) & " seconds"

Oleme käsitlenud lihtsaid funktsioone, mida saab kasutada peaaegu kõikjal. Vaatame nüüd tõsisemaid näiteid ja need võivad aidata teil suuri projekte kirjutada.

Kaustade näited

Kustuta kataloog

Privaatne deklareeri funktsioon RemoveDirectory& Lib _ "kernel32" Alias ​​"RemoveDirectoryA" (ByVal lpPathName As String) "Kataloogi eemaldamine (tühi!) PathName$ = "D:\t" kood& = EemaldaKataloog(PathName) Siis "Er&=või 0 kataloogi eemaldamine Else "Kataloog kustutatud End If

Loo kataloog

Sub MakeDir(dirname As String) Dim i As Long, tee Stringina Do i = InStr(i + 1, dirname & "\", "\") tee = Left$(dirname, i - 1) Kui Parem$(tee , üks)<>":" Ja Dir$(tee, vbDirectory) = "" Siis MkDir tee End If Loop Kuni i >= Len(dirname) End Sub Private Sub Command1_Click() Kutsu MakeDir("C:\Soft\1\2\3\ ") Lõpeta alam

Loetlege kõik alamkaustadega kaustad

Lisame vormile 2 tekstivälja ja nupu, esimese tekstivälja nimi on StartText, teise tekstivälja nimi OutText. Mitmerealine omadus = tõene, nupu nimi = CmdStart

Staatiline töötamine Boolean Dim AllDirs uue kollektsioonina Dim next_dir as Integer Dim dir_name Stringina Dim sub_dir Stringina Dim i täisarvuna Dim txt stringina Kui töötab Siis töötab = False CmdStart.Enabled = False CmdStart.Caption"Else = "Stopping" True MousePointer = vbHourglass CmdStart.Caption = "Stopp" OutText.Text = "" DoEvents next_dir = 1 AllDirs.Add StartText.Text Do While next_dir<= AllDirs.Count dir_name = AllDirs(next_dir) next_dir = next_dir + 1 sub_dir = Dir$(dir_name & "\*", vbDirectory) Do While sub_dir <>"" Kui UCase$(alam_kataloog)<>"LEHEFIIL.SYS" Ja alam_kataloog<>"." Ja alamkataloog<>".." Siis alam_kataloog = kataloogi_nimi & "\" & alam_kataloog tõrke korral Jätka järgmiseks If GetAttr(alam_kataloog) Ja vbDirectory Siis AllDirs.Add sub_dir End If sub_dir = Dir$(, vbDirectory) Loop DoEvents Kui ei tööta, siis välju Do Loop = "" For i = 1 To AllDirs.Count txt = txt & AllDirs(i) & vbCrLf Järgmine i OutText.Text = txt Hiirekursor = vbVaikimisi unning = Vale Lõpp Kui

Nüüd käivitame programmi, StartText tekstiväljale kirjutame: C:\windows ja klõpsame nuppu.

Kataloogi suurus

CONST-MAX_PATH = 260 privaatne tüüp Filetime DwlowdateTime AS Long DwighdateTime AS Pikk lõpp-tüüpi privaatne tüüp Win32_Find_Data dwfileeatTribute kui FTLASTACTION AS FileTime FtlastaccesTime AS FileTime FTLASTWRITETIME AS FileTime FTLASTWRITETIME AS FileTime FTLASTWRITETIME AS FileTime NFileServed0 Nagu Long DWResserved0 nii kaua DWResserved1 kui pikk cfileName nagu stringina * max_path caltername * 14 Lõpu tüüp Privaatne deklareerimisfunktsioon FindFirstFile Lib _ "kernel32" Alias ​​"FindFirstFileA" (ByVal lpFileName stringina, lpFindFileData kui WIN32_FIND_DATA) Pika privaatdeklaratsiooni funktsioon (Al Pikk, lpFindFileData kui WIN32_FIND_DATA) nii kaua privaatne deklareeri funktsioon FindClose Lib _ "kernel32" (ByVal hFindFile As Long) nii pikk avalik funktsioon SizeOf(ByVal DirPath AsNa) As Double Dim hFind As Long_ Dim3 dbm String Dim x nii kaua vea korral Jätka järgmisena x = GetAttr(DirPath) Kui Err then SizeOf = 0: väljumisfunktsioon If (x Ja vbDirectory) = vbDirectory then dblSize = 0 Err.Clear sName = Dir$(EndSlash(DirPath) & "*.*", vbSystem Või vbHidden Või vbDirectory) Kui Err.Number = 0 = FindFirstFile(EndSlash(DirPath) & "*.*", fdata) Kui hFind = 0, siis väljuge funktsioonist Tee If (fdata.dwFileAttributes And vbDirectory) = vbDirectory Siis sName = Vasak$(fdata.cFileName, InInt(fdata. vbNullChar) – 1) Kui nimi<>"." Ja nimi<>".." Siis dblSize = dblSize + SizeOf(EndSlash(DirPath) & sName) End If Else dblSize = dblSize + fdata.nFileSizeHigh * 65536 + fdata.nFileSizeLow End If DoEvents Loop While FindNextFind, fdatah)Find<>0 hFind = FindClose(hFind) End If Else On Error Resume Next dblSize = FileLen(DirPath) End If SizeOf = dblSize Lõppfunktsioon Privaatne funktsioon EndSlash(ByVal PathIn As String) Stringina Kui Right$(PathIn, 1) = "\" Siis EndSlash = PathIn Else EndSlash = PathIn & "\" End If End Funktsioon Private Sub Form_Load() "Asenda "D:\soft" mis tahes kataloogiga, mille suurust soovite MsgBox SizeOf("D:\soft") / 1000000 End Sub

Näited failidega töötamiseks

Kopeeri

Oletame, et meil on kaustas C:\1\ fail nimega 1.txt ja me peame selle kopeerima kausta C:\2\, selleks kirjutame järgmise koodi:

Failikoopia "C:\1\1.txt","C:\2\1.txt"

Märge! Kui kataloog 2 sisaldab juba faili nimega 1.txt, asendatakse see 1. kataloogi failiga 1.txt.

Privaatne deklareerimisfunktsioon CopyFile Lib _ "kernel32.dll" Alias ​​"CopyFileA" _ (ByVal lpExistingFileName stringina, ByVal lpNewFileName stringina, ByVal bFailIfExists As Long) Kui pikk privaatne alamkäsk1_Cpytxt()\1_Cpytxt. to D :\1.txt. Dim retval As Long " tagastusväärtus "Kopeeri fail retval = CopyFile("C:\1.txt", "D:\1.txt", 1) If retval = 0 Siis "Kui MsgBox nurjus" Ei saa kopeerida" Else "Kui OK MsgBox "Fail kopeeritud." Lõpeta Kui Lõpeta alam

Eemaldus

Näiteks tahame kustutada faili 1.txt draivi C:\ juurest.

Kill ("C:\1.txt")

API viis

Privaatne deklareeri funktsioon DeleteFile Lib _ "kernel32.dll" Alias ​​"DeleteFileA" (ByVal lpFileName As String) Pikana Privaatne Sub Command1_Click() "Kustuta fail C:\Samples\anyfile.txt Dim retval As Long "Tagastusväärtus retval = DeleteFile("C:\1.txt") Kui retval = 1, siis MsgBox "Fail kustutati edukalt." lõpu alam

liigub

Saate seda liigutada näiteks järgmiselt:

Failikoopia "C:\1.txt","C:\2\1.txt" Kill ("C:\1.txt")

Kuid see on parem nii (API kaudu):

Privaatne deklareeri funktsioon MoveFile Lib _ "kernel32.dll" alias "MoveFileA" _ (ByVal lpExistingFileName stringina, ByVal lpNewFileName stringina) Pikana privaatne alamkäsk1_Click() Dim retval As Long "Return Value" \1 .txt", "C:\2\1.txt") Kui retval = 1, siis MsgBox "Teisaldamine õnnestus" Muidu MsgBox "Viga" End If End Sub

Ümbernimetamine

Kataloogis C:\ asuva 1.txt-faili ümbernimetamiseks 2.txt-ks saate kasutada järgmist koodi:

Failikoopia "C:\1.txt","C:\2.txt" Kill ("C:\1.txt")

API viis

Privaatne deklareeri funktsioon MoveFile Lib _ "kernel32.dll" alias "MoveFileA" _ (ByVal lpExistingFileName stringina, ByVal lpNewFileName stringina) Pikana privaatne alamkäsk1_Click() Dim retval As Long" = MoveFi tagastatav väärtus retval \1 .txt", "C:\2.txt") Kui retval = 1, siis MsgBox "Success" Else MsgBox "Error" End If End Sub

Määrake faili suurus

Faili suurust saab määrata kahel viisil:

Kui faili saab avada funktsiooniga OPEN, siis saate kasutada funktsiooni LOF

Dim FileFree As Integer Dim FileSize As Long FileFree = Tasuta fail Ava "C:\WIN\GENERAL.TXT" sisendiks failivabana Failisuurus = LOF(FileFree) Sule FileFree

Või kasutage funktsiooni FileLen

Dim lFileSize as Long FileSize = FileLen("C:\WIN\GENERAL.TXT")

Peida kell programmiliselt

Lisage 2 nuppu ja kleepige kood:

Valik Explicit Private Declare Function FindWindow Lib _ "user32" Alias ​​"FindWindowA" (ByVal lpClassName stringina, ByVal lpWindowName kui string) Pika privaatse deklareerimise funktsioon FindWindowEx Lib _ "user32"A"ndWindy Long, ByVal hWnd2 As Long, ByVal lpsz1 kui string, ByVal lpsz2 kui string) nii kaua Privaatne Deklareeri funktsioon ShowWindow Lib _ "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) Nii pikk Dim hnd As Long Privaatne alamkäsk(d1_C) ShowWindow hnd, 0 End Sub Private Sub Command2_Click() ShowWindow hnd, 1 End Sub Private Sub Form_Load() hnd = FindWindow("Shell_TrayWnd", vbNullString) hnd = FindWindowEx(hnd, 0, "TrayNotifyWnd", vbdowNuNotifyWnd", vbdow hnd, 0, "TrayClockWClass", vbNullString) Command1.Caption = "Peida kell" Command2.Caption = "Kuva kella" End Sub

Lisage salve ikoon

Lisage moodul, kleepige kood sellesse:

Deklareeri funktsioon Shell_NotifyIconA Lib _ "SHELL32" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) Täisarvuna Avalik Const NIM_ADD = 0 Avalik Const NIM_MODIFY = 1 Avalik Const NIM_DELETE = 1 Avalik Const NIM_DELETE = 2 Avalik Const NIM_DELETE = 2 Avalik Const NIFI_M ESS_Const2 NIFIP1 Tüüp NOTIFYICONDATA cbSize As Long hWnd As Long uID As Long uFlags As Long uCallbackMessage As Long hIcon As Long szTip As String * 64 Lõpu tüüp Public Function SetTrayIcon (Mode As Long, hWnd As Long, Icon String As Long, Tips Dim) nidTemp As NOTIFYICONDATA nidTemp.cbSize = Len(nidTemp) nidTemp.hWnd = hWnd nidTemp.uID = 0& nidTemp.uLipid = NIF_ICON Või NIF_TIP nidTemp.uCallbackMessage =0&ndTemp. Shell_NotifyIconA(Mode, nidTemp) Lõppfunktsioon

Kleebi kasutamine vormikoodis:

Private Sub Form_Load() SetTrayIcon NIM_ADD, Me.hWnd, Me.Icon, "Test" End Sub "Private Sub Command1_Click() SetTrayIcon NIM_DELETE, Me.hWnd, 0&, "" End Sub

Käivitusnupu blokeerimine

Privaatne deklareeri funktsioon FindWindow Lib "user32" Alias ​​"FindWindowA" _ (ByVal lpClassName As String, ByVal lpWindowName As String) Pika privaatne deklareeri funktsioon FindWindowEx Lib "user32" Alias ​​h "Long_Window AVal" hWnd2 As Long, ByVal lpsz1 Stringina, ByVal lpsz2 Stringina) Nii Long Private Declare Funktsioon EnableWindow Lib "user32" _ (ByVal hwnd As Long, ByVal fEnable As Long) Nii Long Public Sub EnableStartButton(Valikuline Lubatud As Boolem) lHwnd As Long " find hWnd lHwnd& = FindWindowEx(FindWindow("Shell_TrayWnd", ""), 0&, "Button", vbNullString) Kutsuge EnableWindow(lHwnd&, CLng(Lubatud)) Nupp Lõpeta alamprivaatne alamkäsk Falnut1_CtB()ton EnableStarlic keelatud End Sub Private Sub Command2_Click() EnableStartButton Tõene "Start-nupp pole keelatud Lõpeta alam

Parameetrite lugemine INI-failist

Programm loob ühenduse FTP-ga ja parameetrid kirjutatakse ini faili - server, sisselogimine, port, parool.

Esiteks looge INI-fail:

Servname=server usern=Logi sisse pwd=parool port=port

See tuleb asetada programmiga kausta. Järgmisena sisestage moodulisse:

Privaatne deklareerimise funktsioon WritePrivateProfileString Lib _ "kernel32" Alias ​​"WritePrivateProfileStringA" (ByVal lpApplicationName stringina, ByVal lpKeyName stringina, _ ByVal lpString stringina, ByVal lpFileName Funclars_Privateastringina Libfiikernel) ​"GetPrivateProfileStringA" (ByVal lpApplicationName Stringina, ByVal lpKeyName Stringina, _ ByVal lpDefault As String, ByVal lpReturnedString stringina, _ ByVal nSize As Long, ByVal lpFileName As Public String A,Raz Paradellins String ReadIni = GetValue (Razdel, Param, App.Path & "\test.ini", "0") Lõppfunktsioon Privaatfunktsioon GetValue (ByVal sektsioon stringina, _ ByVal võti stringina, ByVal fFileName stringina, valikuline ByVal Vaikeväärtus As String = vbNullString) Stringina Dim Data String Data = String$(1000, Chr$(0)) Kui GetPrivateProfileString(Section, Key, DefaultValue, Data, 1000, fFileName) > 0 Siis GetValue = Left$(Data, InStr( Andmed$, Chr $(0)) – 1 ) Muidu GetValue = Vaikeväärtus Lõpp, kui väljub funktsioonist Lõpeta funktsioon

Seejärel kleepige vormikood:

Privaatne deklareerimisfunktsioon InternetOpen Lib _ "wininet.dll" alias "InternetOpenA" (ByVal sAgent stringina, ByVal nAccessType As Long, ByVal sProxyName stringina, _ ByVal sProxyBypass stringina, Functions AVal nFlags AVal Longclare) Lib _ "wininet.dll" Alias ​​"InternetConnectA" (ByVal hInternetSession As Long, ByVal sServerName stringina, _ ByVal nServerPort täisarvuna, ByVal kasutajanimi stringina, ByVal sParsword As Longnsd, ByVal sParsword, ByVal A Longnsd, Autor , ByVal dwContext As Long) Kui kaua privaatne deklareeri funktsioon FtpPutFile Lib _ "wininet.dll" Alias ​​"FtpPutFileA" (ByVal hFtpSession As Long, ByVal lpszLocalFile As String, _ ByVal lpszRemoteF, Bys A teksti Pikk) kui Boole'i ​​privaatne deklareeritav funktsioon FtpGetFile Lib _ "wininet.dll" alias "FtpGetFileA" (ByVal hFtpSession As Long, ByVal lpszRemoteFile stringina, _ ByVal lpszNewFile stringina, ByVal lpszNewFile, ByValIfAtAnds, AValIfAtAnds, AFail _ ByVal dwFlags As Long, ByVal dwContext As Long) kui Boolean Private Declare Funktsioon InternetCloseHandle Lib _ "wininet.dll" (ByVal hInet As Long) Kui täisarv Dim rc& Dim rs&

Ja nupu koodis:

rc& = InternetOpen("", 0, vbNullString, vbNullString, 0) rs& = InternetConnect(rc&, ReadIni("Üldine", "servinimi"), "0", _ ReadIni("Üldine", "kasutaja"), ReadIni( "Üldine", "pwd"), 1, 0, 0) Kui FtpGetFile(rs&, "Teie fail.txt", "tee", Väär, 0, 1, 0) = Väär Siis lõpeta kõne InternetCloseHandle(rs&) Kutsu InternetCloseHandle (rc&)

Töötavate protsesside loend

Lisage loendikast ja nupp 1, kleepige järgmine kood:

Suvand Explicit Private Declare Function CreateToolhelpSnapshot Lib _ "Kernel32" Alias ​​"CreateToolhelp32Snapshot" _ (ByVal lFlags As Long, ByVal lProcessID As Long) As Long Private Declare Function Process h. As Long, uProcess As PROCESSENTRY32) As Long Private Declare Function ProcessNext Lib _ "Kernel32" alias "Process32Next" _ (ByVal hSnapShot As Long, uProcess As A PROCESSENTRY32) As Long "KernelBloseHandle"As Long Private" ) Private Const Th32CS_SNAPHCESS AS Long = 2 & Private Consting Max_Path AS täisarv = 260 privaatset tüüpi protsessivrit32 dwseize nii pikk cntage kui pikk th32 processsid nagu pikk th32DefAultheapid nii kaua th32moduleid nagu pikad cnthreads nii pikk th32PARENTPROCESSBASE kui pikk pcpriclassbase nii kaua dwflags nii pikk dwflags nagu pikk szexefile nagu string * max_path Lõpu tüüpSnaphot DimSnaphot Dim uProcess as PROCESSENTRY32 Dim r As Long Privaatne alamkäsk1_Click() List1.Clear hSnapShot = Cre ateToolhelpSnapshot(TH32CS_SNAPPROCESS, 0&) Kui hSnapShot = 0, siis välju alamotsast If uProcess.dwSize = Len(uProcess) r = ProcessFirst(hSnapShot, uProcess) Do While r Loomus1.AddItem ProcessuNProcess,Process CloseHandle(hSnapShot) End Sub

Programmi käivitamine

Programmi Windowsiga laadimiseks, nagu ka mõned teised programmid, saate kasutada registrit:

Lisage 2 nuppu ja järgmine kood:

Private Sub Command1_Click() "Registry Write Set Reg = CreateObject("WScript.Shell") Reg.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\Name of your programme", _ "Teie programmi tee" End Sub Private Sub Command2_Click() "Kustuta registrist Set Reg = CreateObject("WScript.Shell") Reg.RegDelete "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\Name of your programme" End Sub

Ja selleks, et programm saaks Windowsiga laadida, isegi turvarežiimis, siis järgmine kood:

Alustuseks tõsisem viis (teha igaks juhuks registrist varukoopia).

Privaatne alamkäsk1_Click() Set Reg = CreateObject("WScript.Shell") Reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WindowsNT\CurrentVersion\Winlogon\Shell", _ "Teie programmi tee" Lõpeta alam-privaatne alamkäsk()"_Click See on taastamiseks Määra Reg = CreateObject("WScript.Shell") Reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WindowsNT\CurrentVersion\Winlogon\Shell", _ "Explorer.exe", End Sub

Noh, lihtne viis.

Private Sub Command1_Click() Set Reg = CreateObject("WScript.Shell") Reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WindowsNT\CurrentVersion\Winlogon\Userinit", _ "C:\\WINDOWS\\system32\\userinit. ,Teie programmi tee" End Sub Private Sub Command2_Click()"Taastamiseks Set Reg = CreateObject("WScript.Shell") Reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WindowsNT\CurrentVersion\Winlogon\Userinit", _ "C: \\WINDOWS\\system32\\userinit.exe", End Sub

Peida tegumiriba

Lisage 2 nuppu ja kleepige kood:

Private Declare Funktsioon SetWindowPos Lib "user32" (ByVal hwnd As Long, _ ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, _ ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) Declare As Long Funktsioon FindWindow Lib "user32" Alias ​​"FindWindowA" _ (ByVal lpClassName stringina, ByVal lpWindowName kui string) Pika konstrina SWP_HIDEWINDOW = &H80 Const SWP_SHOWWINDOW = &H40 "H40" Commandlndlndwvate", ") Kutsu SetWindowPos(hwnd1, 0, 0, 0, 0, 0, SWP_HIDEWINDOW) Lõpeta alam "Kuva privaatne alamkäsk2_Click() hwnd1 = FindWindow("Shell_traywnd", "") Kutsu SetWindowPos(hwnd1,0,0,hwnd01, ) 0, 0, SWP_SHOWWINDOW) Lõpeta alam

Paki lahti RAR-arhiiv

RAR-arhiivi lahtipakkimiseks võite kasutada järgmist koodi:

WinRarApp = "C:\Program Files\WinRAR\WinRAR.exe x -o+" iPath = "C:\" iArhivName = "Failinimi.rar" adr = WinRarApp & " """ & iPath & iArhivName & """ " "" & iPath & """ " RetVal = Shell(adr, vbHide)

Kui palju RAM-i arvutis on

Lisage üks nupp ja kleepige järgmine kood:

Private deklareerivad sub globalmemorsstatus lib "kernel32" (LPBUFTEL32 "(LPBUFFER AS TMEMORYSTATUS) Private tüüp TMEMORYSTATUS DWLenting nii kaua DWMemorySoad AS Long Dwtotailphys AS Long DwtotaLpageFile AS Long DwtailPageFile AS Long DwtotalVirtual kui pikk dwtotalVirtual kui pikk dwtotalVirtual kui pikk dwavailPagefile As Long End TMemoryStatus( ) ms.dwLength = Len(ms) Call GlobalMemoryStatus(ms) MsgBox "Total:" & ms.dwTotalPhys & vbCr & "Free:" _ & ms.dwAvailPhys & vbCr & "Kasutatud % :" & ms.dwMemoryLoad End Sub

Peida töölauaikoonid

Seda tehakse järgmisel viisil. Lisage 2 nuppu ja kleepige järgmine kood:

Privaatne deklareeri funktsioon ShowWindow& Lib "user32" (ByVal hwnd&, ByVal nCmdShow&) Privaatne deklareeri funktsioon FindWindow Lib _ "user32" Alias ​​​​"FindWindowA" (ByVal lpClassName As String, ByVal lpClassName = String, ByVal Alp_WindowstName = ConVal AlpsWindowstName) 1 Privaatne alamkäsk1_Click() Dim hHandle As Long hHandle = FindWindow("progman", vbNullString) Call ShowWindow(hHandle, SW_HIDE) End Sub Private Sub Command2_Click() Dim hHandle As Long handHandle =Pro FindWllindow" (hHandle , SW_NORMAL) Lõpeta alam

Nupu Command1 abil on ikoonid peidetud, ilmub Command2.

See on kõik, mis mul on, loodan, et ülaltoodud näited on teile kasulikud, hüvasti!

Programmeerimise alused.

Programmeerimiskeel väike Põhiline

1. TUND: Programmeerimiskeskkonna tutvustus väike Põhiline .

Sihtmärk: tutvustada programmeerimiskeelega Small Basic.

Ülesanded:

Alustage programmeerimiskeele õppimist Väike põhi. Esitage mõiste OOP (objektorienteeritud programmeerimine)

Õppige selles programmeerimiskeskkonnas töötama. P tutvuma keskkonna "tekstiobjektiga". Väike põhi.

Anda esimene ettekujutus programmide loomisest programmeerimiskeskkonnas.

Projekti peamised hariduslikud ülesanded:

Isikuomaduste kasvatamine: sihikindlus, tähelepanelikkus, täpsus, objektiivsus enesehinnangus, vastutustunne, tunnetuslik huvi.

Projekti peamised arendusülesanded:

Kujundada õpilastes võtmepädevusi, mis aitavad kaasa edukale sotsiaalsele kohanemisele;

Arendada kognitiivse tegevuse kaudu enesearengu ja isikliku kasvu soovi.

Tea: Põhimõisted: objekt, muutujad, määramine, andmetüübid, sisend-väljund.Teadma Small Basic programmeerimiskeskkonna koostisosi.

Suuda: Laadige alla programm Smal Basic. Looge selles programmeerimiskeskkonnas lihtsaid projekte. Oskab sisestada matemaatilisi funktsioone ja kirjutada matemaatilisi avaldisi Smal Basic keeles. Kirjutage lihtsaid lineaarseid programme.

Varustus ja materjal: põhilised loengukonspektid (vt.1. lisa ), töökaardid, arvuti, rakendus Small Basic, tahvel, multimeediaprojektor, ekraan.

Tundide ajal:

Aja organiseerimine

1. Tunniks valmistumine

   Teadmiste värskendus

Uue materjali selgitus

Õpitud materjali koondamine

1. Seotud küsimused

Kokkuvõtteid tehes

1. Hindamine

   Kodutöö

Aja organiseerimine

1. Tunniks valmistumine (kontrollige tunniks valmisolekut, märkige puudumiseks)

   Teadmiste värskendus

Milleks programmeerimine on mõeldud?

Tahad kirjutada bioloogia abstrakti. Tõenäoliselt kirjutate selle arvutis mõnes tekstiredaktoris. Kust tuli tekstiredaktor? Muidugi, programmeerijad kirjutasid selle. Internetist otsite teavet brauseriga, mille programmeerijad samuti kirjutasid. Pärast essee kirjutamist soovite lõõgastuda ja mängida arvutimängu, mille kirjutasid jällegi programmeerijad. Üldiselt on arvutiga töötamine võimatu ilma programmeerijate kirjutatud programme kasutamata. See tähendab, et kui programmeerimist poleks, poleks ka programme ja arvuti oleks hunnik kallist riistvara, sest ilma programmideta arvuti abil pole võimalik midagi teha.

Probleemi lahendamise etapid.

Põhimõisted

Programmeerimine - programmide kirjutamine.

Programm Algoritm, mis on kirjutatud arvutile arusaadavas programmeerimiskeeles.

Algoritm - eesmärgi saavutamisele suunatud toimingute selge jada.

Objektorienteeritud programmeerimises tutvustatakse objekti mõistet, rakendatakse arvutusmehhanisme, mis võimaldavad:

Kirjeldage objekti struktuuri

Kirjeldage tegevusi objektidega

Kasutage spetsiaalseid objektide pärimise reegleid (Pärimine tähendab uute objektide loomist olemasolevatest)

Määrake objekti komponentide kaitseaste

teooria

Esimene kohtumine

Microsoft Small Basic - programmeerimiskeel, mille on välja töötanud . Mõeldud algajatele arendajatele, kes soovivad õppida programmide loomise põhitõdesid.

Peamised eelised:

Väga lihtne arenduskeskkond - tekstiredaktor, millel on multifunktsionaalne vihje ja vaid mõned nupud teksti redigeerimiseks ja programmide käivitamiseks.

Lihtne keel ainult 20 märksõnaga

Arenduskeskkonda sisseehitatud kontekstuaalne dokumentatsioon keele kõigi elementide jaoks

Võimalus laiendada Small Basic komponente lisafunktsioonide lisamiseks. (Näiteks tarne sisaldab juba funktsioone teenustega töötamiseks)

BASICu eriliseks eeliseks tuleks pidada suutlikkust töötada tõlgendusrežiimis, mis lihtsustab oluliselt programmide silumise protsessi: peaaegu iga käsu täitmist saab kontrollida kohe pärast kirjutamist.

Väljundoperaator

WriteLine ("Tere!")

Kuvab stringi (tekst või number )

Hei!

Tulemuse saamiseks - teksti "Tere!" ekraanil - peate kirjutama programmi:

TextWindow.WriteLine("Tere!")

Programm sisestatakse aknasseväikePõhilineja alustage nupugakäivitada või võti F 5

Programmi tulemuseks on teksti väljund: "Tere!" sissetekstikasti programmid.

String tähendab "Jätkamiseks vajutage suvalist klahvi...".

TextWindow on "tekstiakna" objekt, milles saab teksti kuvada.

Objektil on omadused ja meetodid.

Objekti meetod -mida objekt suudab, st seeoperatsioonid (operaatorid )

Parameeter toimingud on WriteLine'i sulgudes()

Sama objekt tekstikasti on omadused (need on objekti omadused) , Näiteks

BackgroundColor atribuut – määrab teksti taustavärvi,Esiplaani värv- teksti värv

Värvid:

punane

kollane

roheline

sinine

must

valge

punane

kollane

roheline

sinine

must

valge

Muutuv

Programmide koostamiseks kasutatakse sageli muutujaid.

muutujal onnimi - ladina täht (a)

Muutujale saab määrata väärtuse, näiteks numbri

a= 5, kus märk " = "- see määramise operaator

stringi väärtus

a = a + 5

Võtke muutuja a väärtus

Lisage sellele 5

Määrake muutujale a uus väärtus, kustutades sellest eelmise

Muutujat on kahte tüüpi: number ja rida

10, -5, 3.14 "arvutiteadus"

Voldi +

korruta *

Jaga /

Matemaatilised toimingud:

Siinus, logaritm, juur

liim

Jaga osadeks

Otsi sümboleid

Asenda tähemärki

NÄIDE koos operaator "+"

väljendus

tulemus

väljendus

tulemus

"ivan" + "ova"

"ivanova"

"klass" + 10

"klass 10"

Programmeerimine

Näide 1: programmi tulemus

Näide 2: programmi tulemus

Näide 3: Programm arvutab ja kuvab kahe muutuja summaa ja b

Math.Abs(arv)

moodul

Math.Cos( number)

koosinus

Matemaatika ülemmäär (arv)

ümardab täisarvuni

Math.GetDegrees( number)

arvu teisendamine radiaanidest kraadideks

Math.GetRandomNumber( max number)

Juhuslik arv vahemikus 1 kunimax number

NaturalLog(arv)

naturaallogaritm

Matemaatika Pi

Pi

Math.Power( baasNumber, eksponent)

AT obaseNamberi tõstmine astendaja astmeni

Matemaatika. max(arv1,arv2)

Maksimaalselt kaks numbrit

Matemaatika. Ülejääk (dividend, jagaja)

Jaoskonna ülejäänud osa

Matemaatika .Sin(arv)

Sinus

Matemaatika. Tan(number)

Koosinus

Matemaatika .ScuareRoot(number)

Juur

Matemaatika. Ümar(number)

Tavaline ümardamine

Matemaatika .ArcSin(number)

Arcsine

Matemaatika. korrus(number)

Ümardab alla lähima väikseima täisarvuni

x=TextWindow.ReadNumber()

y=Math.Abs(x)

TextWindow.WriteLine("y võrdub "+y)

Matemaatika Pi

Materjali kinnitamine

1. Iseseisev praktiline töö arvutil

Ülesanded iseseisvaks tööks

1. harjutus:

Määratlege määramislausete lõpptulemused

X=3

Y=2

X = X+2

Y=X*2

X=Y

A= 15

B=A

A=B/5+2

B=A*3

A=0

2. ülesanne : Kirjutage programm 3 muutuja korrutise arvutamiseks:a , b ja c .

3. ülesanne : Kirjutage programm avaldise arvutamiseks:z=5* x+ y/2 (eeldusel, et x=10,y=100)

Ülesanne 4: Kirjutage programm X ja väärtuste väljastamiseksY, vastavalt ülesandele 1.

Ülesanne 5: Kirjutage programm diskrimineerija leidmiseks

6. ülesanne : hinda väljendeid

(5+5) 3 (1000 )

2+|3-25| (24 )

4 2 – (10)

Cos 2 (Pi/4)+ Patt 2 (Pi/2) (1 )

( 1)

Y = 2x 2 ( juures x = 5, y = 50)

X 1,2 \u003d (kui \u003d 2, b=6, c=4 , x 1=-1, x 2=-2)

Z= ln(y)-3 ( juures y = 3, z = -1,901…)

С= (millal a=4, b=9, c=13)

Y=cos(x)+sin(x) (x=180 0 ,y=-1)

Küsimused

Mis on programm?

Milleks on programmeerimiskeeled?

Millised on objektorienteeritud programmeerimise põhielemendid?

Milliseid toiminguid saab "tekstiaknas" teha?

Mida tähendab määramise operaator:

Mis tüüpi andmeid kasutatakse Väike põhi?

Kuidas I/O avaldusi kirjutatakse?

Kokkuvõtteid tehes

1. Hindamine

   Kodutöö

Töö koos kokkuvõttega

sõnum ette valmistada teemal: "Erinevad programmeerimiskeeled"

Tee programm kolmnurga pindala arvutamine Heroni valemi abil

Lisa

OK 1: keeles programmeerimise alused väike Põhiline .

Programmeerimine - programmide kirjutamine.

ALGORITM + PROGRAMMEERIMISKEEL= PROGRAMM

Muutuv

muutujal onnimi - ladina täht (näiteksa , AT , x1 , C9 )

Muutujale saab määrata väärtuse

Näide: a = 5 , kus on märk " = "- see määramise operaator

Muutujat on kahte tüüpi: number ja rida (märgijada)

10, -5, 3.14 "arvutiteadus"

Voldi +

korruta *

Jaga /

Matemaatilised toimingud:

Siinus, logaritm, juur

liim

Jaga osadeks

Otsi sümboleid

Asenda tähemärki

Programmeerimine

TextWindow- See objekt "tekstiga aken" , milles saab kuvada teksti.

Tööparameeter sulgudes - WriteLine()

Objekt tekstikasti on omadused , Näiteks

Kinnisvara taustavärv - määrab teksti taustavärvi,Esiplaani värv - teksti värv

Kasutatud värvid:

punane

kollane

roheline

sinine

must

valge

punane

kollane

roheline

sinine

must

valge

Väikesed põhioperaatorid

"+" operaator

Peamised operaatorid

Matemaatiliste funktsioonide kasutamine avaldises

Keeruliste matemaatiliste avaldiste kirjutamine Matemaatika Pi TextWindow.WriteLine("Sisestage muutuja x väärtus")

x=TextWindow.ReadNumber()

y=Math.Abs(x)

TextWindow.WriteLine("y võrdub "+y)

TextWindow.WriteLine(Math.Abs(-10))

Programm kahe muutuja summa arvutamiseksa ja b

TextWindow.WriteLine("Sisesta muutuja a väärtus")

a=TextWindow.ReadNumber()

TextWindow.WriteLine("Sisesta muutuja b väärtus")

b=TextWindow.ReadNumber()

s=a+b

TextWindow.WriteLine(" arvude summa on "+s)

Programm sisestatakse aknasseväikePõhilineja alustage nupugakäivitada või võti F 5.

Liin Vajutage ükskõik milline võti jätka ...tähendab" Jätkamiseks vajutage suvalist klahvi

Eclipse on laiendatav arendusplatvorm koos käitusaegade ja rakendusplatvormidega tarkvara loomiseks, kasutamiseks ja haldamiseks kogu selle elutsükli jooksul. Paljud inimesed teavad Eclipse'i kui Java IDE-d, kuid tegelikult koosneb Eclipse enam kui 60 erinevast avatud lähtekoodiga projektist.

Tasuta avatud lähtekoodiga Mac Windows Linux

NetBeans

Tasuta avatud lähtekoodiga IDE tarkvaraarendajatele. Saate kõik tööriistad, mida vajate professionaalsete töölaua-, ettevõtte-, veebi- ja mobiilirakenduste loomiseks Javas, C/C++ ja isegi dünaamilistes keeltes, nagu PHP, JavaScript, Groovy ja Ruby

Tasuta avatud lähtekoodiga Mac Windows Linux BSD

Aptana stuudio

Aptana Studio on terviklik veebiarenduskeskkond, mis ühendab võimsad arendustööriistad veebimajutus- ja koostööteenuste komplektiga, et aidata teil ja teie meeskonnal rohkem ära teha. Sisaldab tuge PHP, CSS, FTP ja muu jaoks.

Tasuta avatud lähtekoodiga Mac Windows Linux

Komodo Redigeerimine

Komodo Edit on kiire, nutikas ja tasuta avatud lähtekoodiga redaktor. Proovige kasutada Komodo Edit (või selle vanemat venda Komodo IDE-d) – see on seda väärt.

Tasuta avatud lähtekoodiga Mac Windows Linux

xcode

Apple'i Xcode on Mac OS X juhtiv arenduskeskkond. Lisaks sellele, et iga Mac OS X ostuga kaasatakse plaadile, on uusim versioon ADC (rakenduste arendajatele üle maailma mõeldud sotsiaalvõrgustik) liikmetele alati tasuta allalaadimiseks saadaval. Apple'i platvormid) ja sisaldab kõiki tööriistu, mida vajate loodud rakenduste loomiseks, kohandamiseks ja optimeerimiseks

Tasuta Mac

MonoDevelop

MonoDevelop on platvormideülene IDE, mis on mõeldud peamiselt C# ja muude .NET-i keelte jaoks. MonoDevelop võimaldab arendajatel kiiresti luua töölaua- ja ASP.NET-i veebirakendusi Linuxi, Windowsi ja Mac OSX-i jaoks. MonoDevelop võimaldab arendajatel hõlpsasti portida Visual Studios loodud .NET-rakendusi Linuxi ja Mac OSX-i, säilitades samal ajal ühtse koodibaasi kõigil platvormidel

Tasuta avatud lähtekoodiga Mac Windows Linux .NET Framework Xamarin Studio

Laatsarus

Free Pascal on GPL-i kompilaator, mis töötab Linuxis, Win32-s, OS/2-s, 68K-s ja mujal. Free Pascal on loodud Delphi süntaksi mõistmiseks ja kompileerimiseks. Lazarus on osa puuduvast puslest, mis võimaldab teil arendada Delphi-laadseid programme kõigi ülaltoodud platvormide jaoks. Kuna sama kompilaator on saadaval kõigil ülaltoodud platvormidel, ei pea te erinevatele platvormidele identsete toodete loomiseks uuesti kodeerima.

Tasuta avatud lähtekoodiga Mac Windows Linux BSD OpenSolaris

veebitorm

JetBrains WebStorm on kommertslik JavaScripti, CSS-i ja HTML-i arenduskeskkond, mis on üles ehitatud JetBrains IntelliJ IDEA platvormile.
WebStorm pakub koodi lõpetamist, käigupealset koodianalüüsi, ümberkujundamise tuge ja VCS-i integreerimist.

Tasuline Mac Windows Linux

SharpDevelop

#develop (lühend sõnast SharpDevelop) on tasuta arenduskeskkond C#, VB.NET ja Boo projektidele Microsofti platvormil. See on avatud lähtekoodiga keskkond. Saate alla laadida nii lähtekoodi kui ka käivitatavaid faile.