Visual Basic Forum

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 ...

Verfasst am: 04.01.2012, 11:13 Aufrufe: 277

ProcessInput(InputEventArgs input) bei System.Windows.Input.InputProviderSite.ReportInput(InputReport inputReport) bei System.Windows.Interop.HwndMouseInputProvider.ReportInput(IntPtr hwnd, InputMode mode, Int32 timestamp, RawMouseActions actions, Int32 x, Int32 y, Int32 wheel) bei System.Windows.Interop.HwndMouseInputProvider.FilterMessage(IntPtr hwnd, WindowMessage msg, IntPtr wParam, IntPtr lParam, Boo ...

Verfasst am: 07.12.2011, 14:58 Aufrufe: 493

Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam) ************** Allerdings nur auf dem Testrechner wo ich die Software installiert habe.

Verfasst am: 01.12.2011, 08:27 Aufrufe: 493

Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam) ***** Nachforschungen in Google ergaben, dass das irgendetwas mit einer Schleife zu tun hat.

Verfasst am: 24.05.2011, 07:23 Aufrufe: 651

Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam) ************** Geladene Assemblys ************** mscorlib Assembly-Version: 2.

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 ...

Verfasst am: 29.07.2010, 09:30 Aufrufe: 746

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 ...

Verfasst am: 14.12.2009, 22:49 Aufrufe: 538

WndProc(Message& m) bei System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m) bei System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam) WRN: Protokollierung der Assemblybindung ist AUS. Bei mir geht das Release aber einwandfrei ?! Muss der andere User auch den Mysqlconnector installiert haben ?? Davon geh i ...

Verfasst am: 14.12.2009, 19:23 Aufrufe: 1616

hWnd, 0) SetWindowText lwndC, lpszName capSetCallbackOnStatus lwndC, AddressOf MyStatusCallback capSetCallbackOnError lwndC, AddressOf MyErrorCallback If capDriverConnect(lwndC, 0) Then capDriverGetCaps lwndC, VarPtr(Caps), Len(Caps) capPreviewScale lwndC, True capPreviewRate lwndC, 66 ...

Verfasst am: 20.11.2009, 20:37 Aufrufe: 652

... enster 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 "user32" _ (ByVal hWnd ...

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 ...

Verfasst am: 08.11.2009, 13:22 Aufrufe: 1624

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 ...

Verfasst am: 03.07.2009, 13:25 Aufrufe: 615

... efekt will ich eine Value in der memory um 1 incrasen das sieht dann so ausdas Modul!Option Explicit 'Find Window Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Long 'Get Process ID Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal Hwnd ...

Verfasst am: 29.06.2009, 15:26 Aufrufe: 1459

Beschreibung:Mit der Funktion kann damit einige Fenstereffekte erzeugen. U.a. Einfaden, Ausfaden, Schieben, Rollen... Falls der Effekt nicht mit der Windows-Version kompatibel ist, oder ein anderer Fehler auftritt, wird die Form trotzdem ein-/ausgeblendet. Genauere Beschreibung zur Handhabung im Quellcode.Funktion:Visual Basic: Beschreibung der Parameter:Fenster: die Form die animiert werden sollArt:EINBLENDEN: Fenst ...

Verfasst am: 29.06.2009, 15:06 Aufrufe: 1748

Beschreibung: Mit Zuhilfename der API-Funktion SendMessage lässt sich der Monitor in den StandBy-Modus schalten und auch wieder einschalten. Erstellen Sie ein neues Windows-Forms Projekt und platzieren auf die Form einen Button, um den Monitor in den StandBy-Zustand zu versetzen. Mit Hilfe eines Timers wird der Monitor dann nach 10 Sekunden autom. wieder "reaktiviert".Funktion: Visual Basic: Quelle: vbarchiv.net

Verfasst am: 29.06.2009, 15:05 Aufrufe: 622

Beschreibung: Datei mittels Windows Dialog verschiebenFunktion:Visual Basic: Quelle: dotnet-snippets.de

Verfasst am: 29.06.2009, 15:04 Aufrufe: 808

Beschreibung:Datei mittels Windows Dialog kopierenFunktion:Visual Basic: Quelle: dotnet-snippets.de

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 ...

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 ...

Verfasst am: 26.06.2009, 18:43 Aufrufe: 622

... rivate 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 CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd ...

Verfasst am: 18.06.2009, 13:19 Aufrufe: 1223

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 &nb ...

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 ...

Verfasst am: 18.06.2009, 12:05 Aufrufe: 824

Verfasst am: 17.06.2009, 13:26 Aufrufe: 698

Code: Private Declare Function ShowWindow Lib "user32" _ (ByVal hwnd As Integer, ByVal nCmdShow As Integer) As Integer Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _ (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer Private Sub Change_Window_State(Bvyal Name as String, By ...

Verfasst am: 15.06.2009, 18:00 Aufrufe: 1071

... al lpBaseAddress As Integer, ByRef lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd ...

Verfasst am: 22.05.2009, 08:17 Aufrufe: 609

Private Sub Timer1_Timer() If GetAsyncKeyState(KeyCodeConstants.vbKeyEnd) Then If Not frmMenu.Visible = True Then frmMenu.Visible = True Call SetWindowPos(Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, 3) Timer2.Enabled = True Else frmMenu.Visible = False Call SetWindowPos(Me.hWnd, HWND_NOTOPMOST, 0, 0, 0, 0, 3) Timer2.Enabled = False End If End If End Sub Private Sub ...

Verfasst am: 03.05.2009, 12:32 Aufrufe: 820

Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam) ************** Geladene Assemblys ************** mscorlib Assembly-Version: 2.

Verfasst am: 08.04.2009, 15:44 Aufrufe: 591

Modul Public Const PROCESS_ALL_ACCESS = &H1F0FFF Dim f1holder As Integer Dim timer_pos As Long 'API Declaration Public Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As ...

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 ...

Verfasst am: 10.02.2009, 19:40 Aufrufe: 1001

Hier ich hatte mal einen Spammer gebaut, der mit window HANDLES Arbeitet, darüber habe ich auch ein Tutorial gemacht, unter Tutorials "HWND Tutorial" und hier ist der Spammer: http://rapidshare.com/files/194126514/HWND_Spammer.rar lg, igoe

Verfasst am: 05.02.2009, 08:18 Aufrufe: 1861

Im diesen Tutorial werde ich euch zeigen, wie Mann z.B. mit den Window Handle umgeht. Das heißt mehr oder weniger, das wir nur mit HWND Arbeiten werden, und ich werde diese Tutorial immer wieder erweitern. Ps: Alle Tutorials sind ohne Ton Inhalts Verzeichnis: 1. Windows Handle eines Fensters herausfinden. (Dazu werde ich euch ein Programm mitliefern, womit ihr es Kinderleicht auslesen könnt.) Was w ...

Verfasst am: 29.01.2009, 22:04 Aufrufe: 2441

LRESULT CALLBACK WndProc(HWND, UINT, WPARAM, LPARAM); //Zum Epfangen der Eingaben des Benutzers const char szAppName[] = "Ein eigenes Fenster"; //Fensterklassen-Name int WINAPI WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance, //Sub Beginn PSTR szCmdLine, int iCmdShow) { HWND hWnd; //hwnd deklarieren MSG msg; ...

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 ...

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 ...

Verfasst am: 10.09.2008, 22:10 Aufrufe: 1157

Verfasst am: 04.09.2008, 07:33 Aufrufe: 583

) Nun kam das Problem, das der Punkt nicht immer im Vordergrund war. Dachte ich mir kein Problem, Lassen wir es in einem Timer per API immer In den Vordergrund holen. Api Function: Public Declare Function SetForegroundWindow Lib "user32" ( _ ByVal hwnd As Long) As Long Benutzung: SetForegroundWindow Me.hwnd HAHA, jetzt war der Punkt zwar immer im Vordergrund, aber dadurch Klappte sich Das ...

Verfasst am: 18.08.2008, 15:16 Aufrufe: 1522

Verfasst am: 18.08.2008, 14:33 Aufrufe: 2460

hi naja aktivieren oder deaktivieren?! keine ahnung wie ich würds so machen Visual Basic: [code] 'declaration Private Declare Function FindWindow Lib "user32" Alias _ "FindWindowA" (ByVal lpClassName As String, _ ByVal lpWindowName As String) As Long Private Declare Function PostMessage Lib "user32" Alias _ "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _ ByVal wParam As Long, lParam As Any) As ...

Verfasst am: 01.08.2008, 19:52 Aufrufe: 678

Zuallererst mal http://www.duden.de/ , sryUnd wie meinst du das mit dem Drücken, willst du einen Button auf deiner Form Drücken oder auf irgendein anderen Programm?Edit: Ich denke mal das du einen Button auf einem anderen Programm Drücken willst, wenn du es so meinst, dann wirst du dich wohl mit HWND auseinandersetzen müssen.Mfg Igoe

Verfasst am: 31.07.2008, 13:46 Aufrufe: 1682

Verfasst am: 30.07.2008, 13:05 Aufrufe: 1379

Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)************** Loaded Assemblies **************mscorlib Assembly Version: 2.

Verfasst am: 22.07.2008, 12:41 Aufrufe: 837

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 LongPublic Function CallWebSite(ByVal URL As String, Optional ByVal WindowMode As VbAppWinStyle = vbMaximizedFocus) As Long CallWebSite = ShellExecute(0&, vbNullString, URL, vbNullString, _ vbNullString, Wi ...

Verfasst am: 21.07.2008, 21:33 Aufrufe: 837

de'API-Function deklarierenPrivate 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'Konstante deklarierenPrivate Const SW_SHOWNORMAL = 1'------------------------------------------------------------Private Sub btnUR ...

Verfasst am: 21.07.2008, 16:38 Aufrufe: 528

Verfasst am: 19.07.2008, 22:18 Aufrufe: 797

Verfasst am: 18.07.2008, 16:30 Aufrufe: 1088

Dim hWnd As Long 'Die Variable "hWnd" wird als Long definiert (grösserer Wert als Integer)hWnd = FindWindow(vbNullString, "Unbenannt - Editor") 'Das Fenster des Editors wird der Variable "hWnd" zugeordnerPostMessage hWnd, WM_KEYDOWN, vbKeyB, 0 'Dem Fenster Editor wird die Taste "B" gesendetEnd Sub 'Fertig der Zauberei[/code] Wenn du die Tastendrücke einfach so machen willst, sprich an ein nicht spezifisches Fenster, ...

Verfasst am: 15.07.2008, 20:16 Aufrufe: 582

Gib mir die HWND von deinen Button und ich gebe dir denn source Fertig...

Verfasst am: 15.07.2008, 18:31 Aufrufe: 582

Klar kann mann das machen du kannst es einmal per HWND machen das du die Taste ohne Sendkeys Drückst und einmal per SendkeysHwnd weis ich gerade nicht ausen Kopf aber Sendkeys ist Codesendkeys ("ENTER")MFG Igoe

Verfasst am: 15.07.2008, 16:22 Aufrufe: 701