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: 30.08.2011, 16:41 Aufrufe: 530

Verfasst am: 25.06.2011, 14:01 Aufrufe: 668

... re Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Integer, ByVal dwShareMode As Integer, ByVal lpSecurityAttributes As SECURITY_ATTRIBUTES, ByVal dwCreationDisposition As Integer, ByVal dwFlagsAndAttributes As Integer, ByVal hTemplateFile As Integer) As Integer ' CreateFile dwDesiredAccess Konstanten Public Const ...

Verfasst am: 28.11.2010, 19:13 Aufrufe: 609

Verfasst am: 03.11.2010, 11:14 Aufrufe: 1156

hi kein problem Wink

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

Verfasst am: 26.10.2010, 17:28 Aufrufe: 477

sollte es sein ddas ich hier falsch bin wäre es nett wenn mir einer den weg in den richtigen bereich zeigt Wink

danke! edit1Module modGlobal Public gcon_DB As OleDb.OleDbConnection = Nothing End Module Module modSystem Module modSystem Private Const gscModName As String = " form1 Public Class Form1 Dim dt As New DataTable Dim da As OleDb.OleDbDataAdapter Dim ds ...

Verfasst am: 17.09.2010, 17:51 Aufrufe: 840

Net Imports System.Net.Sockets Public Class WakeOnLan Public Const MAC_ADDR_BYTES As Integer = 6 Private Const PORT_BROADCAST = 2304 ' <remarks> ' Constructs and returns a magic packet for the given mac address. ' A Magic Packet is 6 bytes of FF followed by the MAC address 16 times. ' </remarks> Public Shared Function GetMagicPacket(ByVal macAddress As String) ...

Verfasst am: 30.07.2010, 17:18 Aufrufe: 459

dll" ( _ ByVal hdcDest As Long, _ ByVal nXDest As Long, _ ByVal nYDest As Long, _ ByVal nWidth As Long, _ ByVal nHeight As Long, _ ByVal hdcSrc As Long, _ ByVal nXSrc As Long, _ ByVal nYSrc As Long, _ ByVal dwRop As Long) As Long Private Const BLACKNESS = &H42 Private Const DSTINVERT = &H550009 Private Const MERGECOPY = &HC000CA Private Const MERGEPAINT = &HBB022 ...

Verfasst am: 23.07.2010, 19:42 Aufrufe: 608

dll" ( _ ByVal hdcDest As Long, _ ByVal nXDest As Long, _ ByVal nYDest As Long, _ ByVal nWidth As Long, _ ByVal nHeight As Long, _ ByVal hdcSrc As Long, _ ByVal nXSrc As Long, _ ByVal nYSrc As Long, _ ByVal dwRop As Long) As Long Private Const BLACKNESS = &H42 Private Const DSTINVERT = &H550009 Private Const MERGECOPY = &HC000CA Private Const MERGEPAINT = &HBB022 ...

Verfasst am: 20.06.2010, 16:56 Aufrufe: 428

Beispiel so ist das bei mir der hash mit großen buchstaben: 9CDFB439C7876E703E307864C9167A15 so sollte es eigentlich sein das er es mit kleinen buchstaben lesen kann: 9cdfb439c7876e703e307864c9167a15 hier ist der code vom md5 class: Option Explicit Private Const OFFSET_4 = 4294967296# Private Const MAXINT_4 = 2147483647 Private State(4) As Long Private ByteCounter As Long Private Byte ...

Verfasst am: 14.12.2009, 19:23 Aufrufe: 1616

dll" ( _ ByVal hWnd As Long, _ ByVal crKey As Long, _ ByVal bAlpha As Byte, _ ByVal dwFlags As Long) As Long Public Const GWL_EXSTYLE = (-20) Public Const WS_EX_LAYERED = &H80000 'Macht nur eine Farbe transparent 'Public Const LWA_COLORKEY = &H1 'Macht das ganze Fenster transparent Public Const LWA_ALPHA = ...

Verfasst am: 13.11.2009, 11:21 Aufrufe: 2708

Verfasst am: 09.11.2009, 14:10 Aufrufe: 1049

Soweit sind das nun erstmal die Probleme die ich bis jetzt weiß. Ich hänge hier einfach mal den Quellcode dran. Dabei einfach die Luftfeuchtigkeit noch nicht beachten. Denke, wenn die Temperatur hinhaut, dass auch die Luftfeuchtigkeit funktioniert. Quellcode: Option Explicit Const Strichlänge As Integer = 10 Private Sub Command2_Click() Dim Tag As Double TextTag.Text = 0 TextTemp.Text = 0 TextFeuch ...

Verfasst am: 08.11.2009, 13:22 Aufrufe: 1624

Verfasst am: 07.11.2009, 19:51 Aufrufe: 912

ich weiß nicht vielleicht ist das das richtige Deklarationen: Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Integer, ByVal dwExtraInfo As Integer) Private Const VK_SNAPSHOT As Short = &H2CS Aktion: Call keybd_event(System.Windows.Forms.Keys.Snapshot, 0, 0, 0) System.Threading.Thread.Sleep(200) ' To have time to catch the ...

Verfasst am: 07.11.2009, 12:28 Aufrufe: 1526

hInstance, 0)[/code]In einem Modul:Visual Basic: [code]Option ExplicitPublic 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 = ...

Verfasst am: 03.08.2009, 20:02 Aufrufe: 1188

gif[/img]kann da jemand helfen? :confused:habs jetzt raus, wie man die icons ausließt:Visual Basic: [code]Public 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 L ...

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

... nbsp; ByVal lpWindowName As String) As Long Private Declare Function ShowWindow _ Lib "user32" _ (ByVal Hwnd As Long, _ ByVal nCmdShow As Long) As Long Private Const ...

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, 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: 18.06.2009, 13:21 Aufrufe: 1010

Verfasst am: 18.06.2009, 13:00 Aufrufe: 904

... der Reg keine Rechte hat geht das natürlich nichtAlso fangen wir mal anAls erstes brauchen wir ein ModulDen könnt ihr so Kopieren, braucht ihr nicht zu verstehenHab ich auch gemacht( Die die solche codes lernen sind dann auch nur Freaks )'wird in der Form benötigt: Public SubKey$ Public Eintrag$ Public Key% 'Fehler oder nicht Const ...

Verfasst am: 18.06.2009, 12:51 Aufrufe: 898

... Alias "RtlMoveMemory" (ByVal Destination As Any, Source As Any, ByVal Length As Long)Private Type POINTAPI x As Long y As LongEnd TypePrivate Type MINMAXINFO ptReserved As POINTAPI ptMaxSize As POINTAPI ptMaxPosition As POINTAPI ptMinTrackSize As POINTAPI ptMaxTrackSize As POINTAPIEnd TypePublic Type SIZEPAR xMin As Long yMin As Long xMax As Long yMax As LongEnd TypePrivate Const ...

Verfasst am: 18.06.2009, 12:03 Aufrufe: 1228

Verfasst am: 15.06.2009, 16:51 Aufrufe: 685

dll" (ByVal vKey As Long) As Long ' GetAsyncKeyState vKey-Konstanten Private Const VK_LBUTTON = &H1 ' Linker Mausbutton Private Const VK_RBUTTON = &H2 ' Rechter Mausbutton Private Const VK_MBUTTON = &H4 ' Mittlerer Mausbutton Private Const VK_BACK = &H8 ' Backspace Taste Private Const VK_TAB = &H9 ' Tab Taste Private Const VK_CLEAR = &HC ...

Verfasst am: 15.06.2009, 12:29 Aufrufe: 1236

Private Const OF_EXIST = &H4000 Private Const OFS_MAXPATHNAME = 128 Private Type OFSTRUCT cBytes As Byte fFixedDisk As Byte nErrCode As Integer Reserved1 As Integer Reserved2 As Integer szPathName(OFS_MAXPATHNAME) As Byte End TypeMit diesen Apis (OpenFile und DeleteFile) können wir jetzt ohne Probleme auf die ve ...

Verfasst am: 15.06.2009, 11:28 Aufrufe: 989

... ng:Diese Funktion prüft ob das Programm in der sie aufgerufen wird im Registry Eintrag des Autostarts steht, sollte dem so sein wird ein False zurück gegeben, sollte dem aber nicht so sein so wird True zurückgegeben und das Programm wird eingetragen.Funktion:Private Function RegisterApplication(ByVal AppName As String) As Boolean Const ...

Verfasst am: 30.05.2009, 18:51 Aufrufe: 1039

Reflection Module mKeyboard #Region "Declarations" Private Const HC_ACTION As Integer = 0 Private Const WH_KEYBOARD_LL As Integer = 13& Private Structure KBDLLHookStruct Public vkCode As Integer Public scanCode As Integer Public flags As Integer Public time As Integer Public dwExtraInfo As Integer End Structure ...

Verfasst am: 13.04.2009, 14:38 Aufrufe: 2105

hab schon was anderes gefunden überprüft anscheinend vmware, anubis, virtual pc und virtualbox habs mal mit dem anti sandbox von zig gekreuzt und verbunden: als modul: Private Const DFP_RECEIVE_DRIVE_DATA = &H7C088 Private Const FILE_SHARE_READ = &H1 Private Const FILE_SHARE_WRITE = &H2 Private Const GENERIC_READ = &H80000000 Private Const GENERIC_WRITE = &H40000000 Private Const OPEN_E ...

Verfasst am: 09.04.2009, 18:15 Aufrufe: 3601

Private Const REG_BINARY = 3 Private Const HKEY_LOCAL_MACHINE = &H80000002 Private Const ERROR_SUCCESS = 0& 'Funktion, gibt den Serial zurück Public Function sGetXPCDKey() As String 'Read the value of: 'HKLM\SOFTWARE\MICROSOFT\Windows NT\Curr ' entVersion\DigitalProductId Dim bDigitalProductID() As Byte Dim bProductKey() As Byte ...

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: 19.02.2009, 21:50 Aufrufe: 1334

Net Imports System.Text Private Sub Send_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Send.Click Dim verz As String = System.Environment.CurrentDirectory Const fpath As String = "blubb.txt" Dim req As HttpWebRequest = CType(WebRequest.Create("http://svrwalk.sv.funpic.de"), HttpWebRequest) req.Method = ...

Verfasst am: 06.02.2009, 18:47 Aufrufe: 2032

... cht so wirklich ) - Falls man für das Schreiben in der Reg keine Rechte hat geht das natürlich nicht Also fangen wir mal an Als erstes brauchen wir ein Modul Den könnt ihr so Kopieren, braucht ihr nicht zu verstehen Hab ich auch gemacht ( Die die solche codes lernen sind dann auch nur Freaks ) 'wird in der Form benötigt: Public SubKey$ Public Eintrag$ Public Key% 'Fehler oder nicht Const ...

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

? Hier mal der Code: [code]Option Explicit Private Declare Function SendMessage Lib "user32" Alias _ "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As _ Long, ByVal wParam As Long, lParam As Any) As Long 'Update am 6. April 2003: der Monitor sollte sich nun auch 'unter Windows 2k/XP abschalten Const WM_SYSCOMMAND = &H112& Const SC_MONITORPOWER = &HF170&am ...

Verfasst am: 04.09.2008, 20:23 Aufrufe: 844

Hm.. Hab die roten Sachen nach oben geschoben und das Public Const in Private umgeschrieben.Leider bleibts immer irgendwo im Source hängen. =(Post doch einfach mal den richtigen :wink:MfG

Verfasst am: 04.09.2008, 19:48 Aufrufe: 708

Verfasst am: 04.09.2008, 19:44 Aufrufe: 844

... ypePrivate Declare Function GetVersionEx Lib "kernel32" _ Alias "GetVersionExA" (lpVersionInformation As _ OSVERSIONINFO) As Long'System beenden + neu startenPrivate Declare Function ExitWindowsEx Lib "USER32" _ (ByVal uFlags As Long, ByVal dwReserved As Long) As LongPublic Enum EWX_ACTION EWX_LOGOFF = 0 EWX_SHUTDOWN = 1 EWX_REBOOT = 2 EWX_FORCE = 4 EWX_POWEROFF = 8End Enum'Für Windows NT/2000Public Const ...

Verfasst am: 01.09.2008, 17:15 Aufrufe: 1756

... pType As Long) As Long Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" _ (LpVersionInformation As OSVERSIONINFO) As Long Public Const ...

Verfasst am: 29.08.2008, 15:36 Aufrufe: 1144

ich meinte es so mit dem produkt key machineguide und io es zu entschlüsseln #define WIN32_LEAN_AND_MEAN #include #include #include #include "aesphm.h" using namespace CryptoPP; // WARNING: EXTREMELY SENSITIVE INFORMATION! #define ACCOUNT_PHRASE_SIZE (XXX + 8 + 20) static byte accountphrase so nur halt für vb6

Verfasst am: 17.08.2008, 12:25 Aufrufe: 1880

... Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long Private Declare Function NtQueryInformationProcess Lib "ntdll" (ByVal ProcessHandle As Long, ByVal InformationClass As Long, ByRef ProcessInformation As Any, ByVal ProcessInformationLength As Long, ByRef ReturnLength As Any) As Long private Const ...

Verfasst am: 14.08.2008, 14:46 Aufrufe: 550

Hier was ich mir bislang dachte: Dim lngFilterZeile As Long, lngFilterSpalte As Long Dim ZählernochzuSpezifizieren As Long Dim ZeilenCount As Long Public Const ErsteSpalte As Long = 43 ' Gültigkeit im ganzen Projekt Public Const LetzteSpalte As Long = 138 ' Gültigkeit im ganzen Projekt Public Const ErsteZeileParent As Long = 5 ' Gültigkeit im ganzen Projekt Public Const LetzteZeileParent As Long = 9 ' Gültigke ...

Verfasst am: 31.07.2008, 18:09 Aufrufe: 1269

ModulVisual Basic: [code]Option Explicit#Const SUPPORT_LEVEL = 0 'Default=0'Must be equal to SUPPORT_LEVEL in cRijndael'An instance of the ClassPrivate m_Rijndael As New cRijndael'Dateien verschlüsselnPublic Function EncryptFile(ByVal Filepath As String, Destination As String) As BooleanOn Error GoTo Err:Dim pass() As ByteDim KeyBits As LongDim BlockBits As Long 'Blocksize, Keybits und passwort setzenKeyB ...

Verfasst am: 28.07.2008, 19:43 Aufrufe: 1005

Verfasst am: 28.07.2008, 15:26 Aufrufe: 1005

Verfasst am: 28.07.2008, 12:25 Aufrufe: 1647

... t die Lösung für dein Problem geschrieben, sondern einen Kommentar! Wenn eine Zeile mit ' anfängt --> kommentar! Er hat dir einfach hingeschrieben dass da ein End Sub fehlt, hats aber nicht hinzugefügt - klar funktionierts nicht. Und bisher ist ja wohl recht viel C&P :/ Aber trotzdem, viel Glück mit deinem ProjektFalls dus nich gesehn hast , war da n end sub >.>ach , und:Habe folgendes gemacht:Code:Private Const ...

Verfasst am: 28.07.2008, 10:03 Aufrufe: 2511