|
Registrieren
LoginInformationen über alias |
|||||
|---|---|---|---|---|---|
 Fensterposition/größe ändern, funktioniert nur mit Notepad |
|||||
| Verfasst am: 20.02.2012, 01:45 Aufrufe: 171 dll" ( _ ByVal hwnd As Int32, _ ByVal hWndInsertAfter As Int32, _ ByVal x As Int32, ByVal y As Int32, ByVal cx As Int32, ByVal cy As Int32, ByVal wFlags As Int32) As Int32 Private Const HWND_NOTOPMOST As Int32 = -2 Private Const SWP_SHOWWINDOW As Int32 = &H40 Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClass ... |
|||||
| Mitte von Fenster auf MousePosition |
|||||
| Verfasst am: 03.02.2012, 17:32 Aufrufe: 184 ... den Button auf dem Screen haben). Bei Klick auf diesen Button kommt eine MsgBox und dann ein anderes Fenster. So weit so gut, aber: Da es ein kleines Schwerzprogramm unter Kollegen werden soll, soll genau die Mitte des Fensters immer unter der Maus sein, so dass man keine andere Wahl hat, als auf den Button zu klicken. Wie kann ich das lösen? Ich hoffe, ihr habt mich verstanden 
Grüsse,
ImonlyI alias ... |
|||||
| Frontend für OpenOffice Datenbank mit VB6? |
|||||
| Verfasst am: 13.11.2011, 12:22 Aufrufe: 196 ... Datenbank, besitze aber leider nur eine Einsteiger Edition von VB6. Meine Frage ist, ob ich die Objekte zur Datnbankprogrammierung, also die DAO's und ADO's irgendwie dazu bekommen könnte ohne gleich einen Professional Edition kaufen zu müssen? Ob ich damit überhaupt auf eine odb zugreifen kann? Wenn nicht, wie ich das dann lösen könnte? Vielen Dank schon mal in Voraus für die Antworten. MFG Alias |
|||||
| Tape Drive - Bandlaufwerk |
|||||
| Verfasst am: 25.06.2011, 14:01 Aufrufe: 668 Inahlt des Moduls was ich dafür angelegt habe: Module ModulTape1 Public Declare Function PrepareTape Lib "kernel32" (ByVal hDevice As Integer, ByVal dwOperation As Integer, ByVal bimmediate As Long) As Integer Public Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Integer, ByVal dwShareM ... |
|||||
| Loginweiterführung |
|||||
| Verfasst am: 06.02.2011, 17:04 Aufrufe: 389 hi ich hab leider nicht so ganz verstanden was du möchtest? möchtest du dass auf deinem loginformular - Benutzer der angemeldete benutzer des PC steht? private Declare Function GetUserName Lib "advapi32.dll" _ Alias "GetUserNameA" ( _ ByVal lpBuffer As String, _ nSize As Long) As Long dim user as str getusername user,len(user) form1.txt_user.text = user ... |
|||||
| Ruckeln bei DrawReversibleFrame oder DrawFocusRect |
|||||
| Verfasst am: 16.12.2010, 20:36 Aufrufe: 570 Red End If End Sub End Class Public Class clBlock Inherits Control Private Declare Function DrawFocusRect Lib "user32" Alias "DrawFocusRect" (ByVal hDC As Integer, ByRef lpRect As RECT) As Integer Private Declare Function GetDC Lib "user32" Alias "GetDC" (ByVal hWnd As Integer) As Integer Private Declare Function ReleaseDC Lib "u ... |
|||||
| Tastendruck simulieren |
|||||
| Verfasst am: 03.11.2010, 11:14 Aufrufe: 1154 hi kein problem 
Public Declare Sub mouse_event Lib "user32" Alias "mouse_event" (ByVal _
dwFlags As Integer, ByVal dx As Integer, _
ByVal dy As Integer, ByVal cButtons As Integer, ByVal _
dwExtraInfo As Integer)
Private Const MOUSEEVENTF_LEFTDOWN = &H2
Private Const MOUSEEVENTF_LEFTUP = &H4
private Sub Button1_Click...
mouse_event(MOUSEEVE ... |
|||||
| Rettungsdienst Projekt |
|||||
| Verfasst am: 29.07.2010, 09:30 Aufrufe: 745 was für eine seite aufrufne? internet seite?!? Private Declare Function ShellExecute Lib "Shell32.dll" Alias _ "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String,_ ByVal lpFile As String, ByVal lpParameters As String, _ ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long private sub command1_Click() ShellExecute(0&, vb ... |
|||||
| Hilfe bei DLL für Parallel Port |
|||||
| Verfasst am: 31.01.2010, 14:55 Aufrufe: 567 Wenn ich jetzt sage ich möchte die 8 Ausgänge Pin 2-9 per Button ein und aus schalten, wie mache ich dass ? Ich schreibe in die Public Class Form1: Public Declare Function Inp Lib "inpout32.dll" _ Alias "Inp32" (ByVal PortAddress As Integer) As Integer Public Declare Sub Out Lib "inpout32.dll" _ Alias "Out32" (ByVal PortAddress As Integer, ByVal Value As ... |
|||||
| Progressbar |
|||||
| Verfasst am: 02.01.2010, 16:47 Aufrufe: 1299 Die gibt die Zeit seit dem Systemstart in Millisekunden zurück. Private Declare Function GetTickCount Lib "kernel32" Alias "GetTickCount" () As Long Dann erstellst du einen Timer der in einem bestimmten Intervall überprüft ob die Zeit um ist und die Progress Bar aktualisiert. Wie viel Zeit vergangen ist kannst du ausrechnen indem du den Anfangswert von GetTickCount den du dir geholt hast ... |
|||||
| Webcam überwachung |
|||||
| Verfasst am: 14.12.2009, 19:23 Aufrufe: 1616 Text End If End Sub Module1 zur Transparentz: Option Explicit Declare Function GetWindowLong Lib "user32.dll" _ Alias "GetWindowLongA" ( _ ByVal hWnd As Long, _ ByVal nIndex As Long) As Long Declare Function SetWindowLong Lib "user32.dll" _ Alias &q ... |
|||||
| ICQ Fenster in vordergrund holen |
|||||
| Verfasst am: 20.11.2009, 20:37 Aufrufe: 652 moin ich wollte ein icq fenster in den vordergrund holen,also die,die rechts unten aufpoppen wenn dich jemand anschreibt ich habe es so versucht aber er findet den fensternamen nicht?Visual Basic: [code] Private Declare Function FindWindow Lib "user32" Alias _ "FindWindowA" (ByVal lpClassName As String, _ByVal lpWindowName As String) As Long Private Declare Function SetWindowPos Lib "user3 ... |
|||||
| Druckmodul |
|||||
| Verfasst am: 19.11.2009, 09:08 Aufrufe: 1637 org########## Dort Könnt ihr was lernen !'##################################'APIPrivate Declare Function ShellExecute Lib "shell32.dll" _ Alias "ShellExecuteA" (ByVal hWnd As Long, _ ByVal lOperation As String, _ ByVal lpFile As String, _ ByVal lpParameters As String, _ ByVal lpDirectory As String, _ ByVal nShowCmd As Long) As Long Public Function isPrinterAvailable() As Boolean isPrinterA ... |
|||||
| aktives fremdes fenster schliessen |
|||||
| Verfasst am: 08.11.2009, 13:22 Aufrufe: 1623 |
|||||
| Keyboard Hook Taste ermitteln |
|||||
| Verfasst am: 07.11.2009, 12:28 Aufrufe: 1525 ... itPublic Const HC_ACTION = 0Public Const WM_KEYDOWN = &H100Public Const WM_KEYUP = &H101Public Const WM_SYSKEYDOWN = &H104Public Const WM_SYSKEYUP = &H105Public Const VK_TAB = &H9Public Const VK_CONTROL = &H11Public Const VK_ESCAPE = &H1BPublic Const VK_LWIN = &H5BPublic Const VK_RWIN = &H5CPublic Const WH_KEYBOARD_LL = 13Public Const LLKHF_ALTDOWN = &H20Public Declare Function SetWindowsHookEx Lib "user32" Alias ... |
|||||
| kleine icons aus .exe auslesen |
|||||
| Verfasst am: 03.08.2009, 20:02 Aufrufe: 1188 ... ic Const SMALL_ICON As Integer = 16Public Const DI_NORMAL = 3Public Declare Function DrawIconEx Lib "user32" _ (ByVal hdc As Long, ByVal xLeft As Long, ByVal yTop As Long, _ ByVal hIcon As Long, ByVal cxWidth As Long, ByVal cyWidth As Long, _ ByVal istepIfAniCur As Long, ByVal hbrFlickerFreeDraw As Long, _ ByVal diFlags As Long) As LongPublic Declare Function ExtractIconEx Lib "shell32.dll" _ Alias ... |
|||||
| Wie Schlagschatten bei Form ohne Rahmen? |
|||||
| Verfasst am: 25.07.2009, 10:30 Aufrufe: 653 Hier noch der Code für den Schlagschatten, der automatischauf alle Formen angewendet wird:Visual Basic: [code]Private Declare Function GetClassLong Lib "user32" Alias "GetClassLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As LongPrivate Declare Function SetClassLong Lib "user32" Alias "SetClassLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As LongPrivate Const GCL_STYLE = (-26)Private ... |
|||||
| Memory Value Inc |
|||||
| Verfasst am: 03.07.2009, 13:25 Aufrufe: 615 bzw mir  oder an dem codealso im endefekt will ich eine Value in der memory um 1 incrasen das sieht dann so ausdas Modul!Option Explicit<br />'Find Window<br />Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Long<br />'Get Process ID<br />Private Declare Function GetWindowThreadProcessId Li ... |
|||||
| Datei mittels Windows Dialog verschieben |
|||||
| Verfasst am: 29.06.2009, 15:05 Aufrufe: 622 Beschreibung: Datei mittels Windows Dialog verschiebenFunktion:Visual Basic: Quelle: dotnet-snippets.de |
|||||
| Datei mittels Windows Dialog kopieren |
|||||
| Verfasst am: 29.06.2009, 15:04 Aufrufe: 808 Beschreibung:Datei mittels Windows Dialog kopierenFunktion:Visual Basic: Quelle: dotnet-snippets.de |
|||||
| Globale HotKeys (Tastenkombinationen) |
|||||
| Verfasst am: 29.06.2009, 14:11 Aufrufe: 2112 Beschreibung:Mit dieser Klasse kann man sehr leicht eine globale Hotkey funktionalität in seinem Programm einbinden.Man muss nur diese Klasse mit WithEvents deklarieren und ihr eine Form zuweisen die gesubclassed werden soll.Dann muss man nur noch ein paar eigene HotKey-Kombinationen registrieren (z.B. Strg+Alt+X) und diesemit dem Event abfragen bzw, abfangen. Dazu muss man eine eigene HotKeyID angeben um einen besti ... |
|||||
| Windows Live Messenger "Was ich gerade höre" setzten |
|||||
| Verfasst am: 29.06.2009, 14:02 Aufrufe: 1103 Beschreibung:Mit dieser Klasse kann man - wie man es vom Windows Media Player kennt - sich in MSN bzw. Windows Live Messenger anzeigen lassen was man gerade hört. Es wird einfach mittels SendMessage ein String-Parameter an den Messenger geschickt und der zeigt den Text dann in das entsprechende Feld "Was ich gerade höre". Diese Funktion muss aber im Messenger aktiviert sein.Funktion:Visual Basic: Quelle: dotnet-snipp ... |
|||||
| API Crypting ? |
|||||
| Verfasst am: 26.06.2009, 18:43 Aufrufe: 620 Private Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long Private Declare Function CallWindo ... |
|||||
| [B] File Shredder Modul |
|||||
| Verfasst am: 19.06.2009, 20:00 Aufrufe: 1800 org #' # #' ###############################Option Explicit'ApisPrivate Declare Function GetInputState Lib "user32" () As LongPrivate Declare Function GetTickCount Lib "kernel32" () As LongPrivate Declare Function DeleteFile Lib "kernel32.dll" Alias "DeleteFileA" (ByVal lpFileName As String) As Long'DeklarationenPrivate Type tOptions ActLoop As Long 'Gibt die aktuelle Wiederholung zurück A ... |
|||||
| Windows herunterfahren/neustarten/abmelden |
|||||
| Verfasst am: 18.06.2009, 13:21 Aufrufe: 1010 |
|||||
| Internetseite öffnen |
|||||
| Verfasst am: 18.06.2009, 13:19 Aufrufe: 1223 dll" Alias "ShellExecuteA" _ <br /> (ByVal hwnd As Long, ByVal lpOperation As String, _ <br /> ByVal lpFile As String, ByVal lpParameters As String, _ <br /> ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long <br /> &nb ... |
|||||
| [B] Updater-Source (Easy version) |
|||||
| Verfasst am: 18.06.2009, 13:01 Aufrufe: 2078 Dim versioninfo As String<br />Public versionneu As String<br />Dim Ftpadresse As String<br /><br /><br />Private Declare Function URLDownloadToFile Lib "urlmon" Alias _<br />"URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal _<br />szFileName As String, ByVal dwReserved As Long, ByVal ipfnCB As Long) As Long<br /><br /& ... |
|||||
| Reg Login |
|||||
| Verfasst am: 18.06.2009, 13:00 Aufrufe: 903 ... <br />End Type<br /><br /><br />'Sicherheitsstruktur nur zur Deklaration der Funktionen<br />Type SECURITY_ATTRIBUTES<br /> Length As Long<br /> Descriptor As Long<br /> InheritHandle As Boolean<br />End Type<br /><br />'Prototypen aus ADVAPI32<br />Declare Function RegOpenKeyEx Lib "advapi32" Alias ... |
|||||
| Fenstergröße limitieren |
|||||
| Verfasst am: 18.06.2009, 12:51 Aufrufe: 898 Visual Basic: [code]Option ExplicitPrivate Declare Function DefWindowProc Lib "user32" Alias "DefWindowProcA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As LongPrivate Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As LongPrivate Declare Funct ... |
|||||
| GetShortPathname (Pfad in altes Dos 8.3 Format umwandeln) |
|||||
| Verfasst am: 18.06.2009, 12:03 Aufrufe: 2008 (Verkürzter Pfad)Visual Basic: [code]Private Declare Function GetShortPathname Lib "kernel32" Alias "GetShortPathNameA" (ByVal strLongPath As String, ByVal strShortPath As String, ByVal intBufferLen As Integer) As IntegerPublic Function GetShortname(ByVal LongPathName As String) As StringDim strShortName As String, iLen As IntegeriLen = GetShortPathname(LongPathName, strShortName, 0)strShortName = Space(iLen - 1)Call ... |
|||||
| DirDialog (Ordner im Dialog auswählen) |
|||||
| Verfasst am: 18.06.2009, 12:03 Aufrufe: 1228 |
|||||
| Fenster außerhalb der eigenen Anwendung beineinflussen |
|||||
| Verfasst am: 17.06.2009, 13:26 Aufrufe: 698 Code: Private Declare Function ShowWindow Lib "user32" _<br />(ByVal hwnd As Integer, ByVal nCmdShow As Integer) As Integer <br />Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _<br />(ByVal lpClassName As String, ByVal lpWindowName As String) As Integer <br /> <br />Private Sub Change_Window_State(Bvyal Name as String, By ... |
|||||
| GameTrainer - Statische Adresse Freezen |
|||||
| Verfasst am: 15.06.2009, 18:00 Aufrufe: 1071 Könnte mir gut vorstellen dass die aktuelle Variante etwas buggy ist :sVondaher müssen die Deklarationen so aussehen:Public Declare Function ReadProcessMem Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer<br /><br />Declare Funct ... |
|||||
| Alternate Data Stream nutzen |
|||||
| Verfasst am: 15.06.2009, 12:29 Aufrufe: 1235 ihn löschen kann, brauchen wir als erstes 2 Apis die uns dabei helfen.Private Declare Function OpenFile Lib "kernel32" (ByVal lpFileName As String, lpReOpenBuff As OFSTRUCT, ByVal wStyle As Long) As Long<br />Private Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As LongUnd noch die dazugehörigen Deklarationen.Private Const OF_ ... |
|||||
| funktion aus dll laden |
|||||
| Verfasst am: 14.06.2009, 14:54 Aufrufe: 401 wie kann ich eine dll mit loadlibary() und getprocadress() einbinden und dann eine funktion aufrufen? hab gegooglet nur find ich da irgendie keine richtigen erkläreungen weil alles mit Private Declare Sub name Lib "test.dll" Alias "funktion" () gemacht wird... heflt mir |
|||||
| Start Menu Hide (disable) |
|||||
| Verfasst am: 30.05.2009, 18:51 Aufrufe: 1039 ... l Code As Integer, _ ByVal wParam As Integer, ByRef lParam As KBDLLHookStruct) As Integer Private Declare Function CallNextHookEx Lib "user32" ( _ ByVal hHook As Integer, ByVal nCode As Integer, _ ByVal wParam As Integer, ByVal lParam As KBDLLHookStruct) As Integer Private Declare Function SetWindowsHookEx Lib "user32" _ Alias ... |
|||||
| MP3 aus Ressourcen abspielen |
|||||
| Verfasst am: 17.05.2009, 12:07 Aufrufe: 732 Hallo, Kann mir jemand helfen? Ich möchte MP3 Dateien aus den ressourcen abspielen. Ich habe es so versucht: Public Class Form1 Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpszCommand As String, ByVal lpszReturnString As String, ByVal cchReturnLength As Long, ByVal hwndCallback As Long) As Long Private Sub Form1_FormClosing(ByV ... |
|||||
| [B] Sandboxie; Norman Sandbox; VM Detection Demo Source |
|||||
| Verfasst am: 13.04.2009, 14:38 Aufrufe: 2103 ... sAndAttributes As Long, ByVal hTemplateFile As Long) As Long Private Declare Function DeviceIoControl Lib "kernel32" (ByVal hDevice As Long, ByVal dwIoControlCode As Long, lpInBuffer As Any, ByVal nInBufferSize As Long, lpOutBuffer As Any, ByVal nOutBufferSize As Long, lpBytesReturned As Long, ByVal lpOverlapped As Long) As Long Private Declare Sub ZeroMemory Lib "kernel32" Alias ... |
|||||
| Windows Serial auslesen |
|||||
| Verfasst am: 09.04.2009, 18:15 Aufrufe: 3601 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, l ... |
|||||
| Offset lesen |
|||||
| Verfasst am: 08.04.2009, 15:44 Aufrufe: 591 ... g, ByVal dwProcessId As Long) As Long Public Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long Public Declare Function FindWindow Lib "user32" Alias ... |
|||||
| Eigene Internet DLL verwenden?! |
|||||
| Verfasst am: 03.04.2009, 20:25 Aufrufe: 590 Heyho, habe momentan folgendes Problem: Ein Programm welches die die Bibliothek wininet.dll benutzt wird von der Heuristik von Antivir stehts angemeckert. Ich hab inzwischen rausgefunden dass es exakt folgende Zeile ist: Lib "wininet.dll" Alias "InternetConnectA" Nun, jetzt gibt es aber Programme wie z.B. WS_FTP die auf die selbe weise auf einen FTP-server zugreifen oder auch allgemei ... |
|||||
| Suche Code |
|||||
| Verfasst am: 11.03.2009, 19:52 Aufrufe: 853 Private Declare Function ShellExecute Lib "shell32.dll" _ Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal _ lpOperation As String, ByVal lpFile As String, ByVal _ lpParameters As String, ByVal lpDirectory As String, _ ByVal nShowCmd As Long) As Long Private Sub google_Click() Dim Result& Result = ShellExecute(Me.hwnd, "Open ... |
|||||
| Reg Login |
|||||
| Verfasst am: 06.02.2009, 18:47 Aufrufe: 2032 ... nst REG_FULL_RESOURCE_DESCRIPTOR = 9 Const REG_RESOURCE_REQUIREMENTS_LIST = 10 'Strukturen Type Time LowTime As Long HighTime As Long End Type 'Sicherheitsstruktur nur zur Deklaration der Funktionen Type SECURITY_ATTRIBUTES Length As Long Descriptor As Long InheritHandle As Boolean End Type 'Prototypen aus ADVAPI32 Declare Function RegOpenKeyEx Lib "advapi32" Alias ... |
|||||
| sendmessage benutzen??? |
|||||
| Verfasst am: 23.12.2008, 12:08 Aufrufe: 1230 hi, wie kann ich die funktion sendmessage benutzen??? Private Declare Function SendMessage Lib "user32.dll" _ Alias "SendMessageA" ( _ ByVal hwnd As Long, _ ByVal wMsg As Long, _ ByVal wParam As Long, _ lParam As Any) As Long hwnd = handle, ok hab ich wMsg = nachricht die man schickt, zB: "te ... |
|||||
| INI Datei bearbeiten |
|||||
| Verfasst am: 16.12.2008, 16:40 Aufrufe: 1374 ... Function GetINISetting(ByVal Filename As String, ByVal Key As String, ByVal Setting As String, ByVal standart As Object) As Object Dim Temp As String GetPrivateProfileString(Key, Setting, standart, Temp, Len(Temp), Filename) GetINISetting = Mid(Temp, 1, InStr(1, Temp, Chr(0)) - 1) End Function Private Declare Function WritePrivateProfileString Lib "kernel32" Alias ... |
|||||
| ini problem |
|||||
| Verfasst am: 20.11.2008, 15:50 Aufrufe: 696 also ich hab hier ein problem mit der ini datei wie das geht versteh ich ja aber der will den code hier nicht annehmen 'API-Funktionen deklarieren Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationname As String, ByVal lpKeyName As Any, ByVal lsString As Any, ByVal lplFilename As String) As Long Private Declare Functi ... |
|||||
| Programm ohne Titelleiste ziehen |
|||||
| Verfasst am: 25.09.2008, 16:59 Aufrufe: 817 Visual Basic: [code]Declare Function SendMessage Lib "User32" Alias "SendMessageA" _(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam _As Long, lParam As Any) As LongDeclare Sub ReleaseCapture Lib "User32" ()Public Const WM_NCLBUTTONDOWN = &HA1Public Const HTCAPTION = 2Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)Dim ReturnValue As LongIf Button = 1 ThenCall ReleaseCa ... |
|||||
| Monitor Ausschalten |
|||||
| Verfasst am: 10.09.2008, 22:10 Aufrufe: 1157 |
|||||
| [S] Power off - Code |
|||||
| Verfasst am: 04.09.2008, 19:44 Aufrufe: 844 Modul:Visual Basic: [code]Option Explicit' Windows-Version' für den Aufruf der GetVersionEx-FunktionPrivate Type OSVERSIONINFO dwOSVersionInfoSize As Long dwMajorVersion As Long dwMinorVersion As Long dwBuildNumber As Long dwPlatformId As Long szCSDVersion As String * 128End TypePrivate Declare Function GetVersionEx Lib "kernel32" _ Alias "GetVersionExA" (lpVersionInformation As _ OSVERSIONINFO) As Long'Syste ... |
|||||
| Screenprogramm schreiben - TuT |
|||||
| Verfasst am: 01.09.2008, 17:15 Aufrufe: 1756 Modul einfügen mit folgendem Code:Declare Function MapVirtualKey Lib "user32" Alias "MapVirtualKeyA" (ByVal wCode As Long, ByVal wMapType As Long) As Long<br />Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)<br />Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionE ... |
|||||