Visual Basic Forum

Verfasst am: 09.09.2011, 07:59 Aufrufe: 663

As previously stated, anime collectable discount DVD are from time-to-time selected by collectors. all those that do so frequently take satisfaction in the . even although it is extra than feasible for collectible anime DVDs to turn into resold for just about any profit, it could frequently occasions be challenging to do. With that getting said, numerous from the below can help collectors, like you, treatment for an ...

Verfasst am: 09.09.2011, 07:49 Aufrufe: 531

Don’t overlook to assess numerous many different shops, it could be among probably the most advantageous methods to acquire an superb buy . using the help of internet, you will make comparison really very easily from store to shop, confirm theirs dietary supplements and prices, you can even confirm the critiques if they have any. By carrying out this it will checklist probably the most advantageous and expenditures ...

Verfasst am: 19.07.2011, 18:27 Aufrufe: 543

InteropServices Public Class Form1 'Variablen: Private Structure Connection Dim stream As NetworkStream Dim streamw As StreamWriter Dim streamr As StreamReader End Structure Dim Server As TcpListener Dim client As New TcpClient Dim ipendpoint As IPEndPoint = New IPEndPoint(IPAddress.Any, 4000) Dim funktion As String() ...

Verfasst am: 25.08.2010, 07:52 Aufrufe: 811

NET Code (ich verwende by the way Visual Studio 2010) heraus der Office Applikation sagen soll, dass es das File nach erfolgreichem runterladen und speichern im Arbeitsverzeichnis öffnen soll und beim Uploaden das File vorher speichern soll. Es geht mir somit konkret nur um die Öffnen und Speichern Methoden von Office Applikationen, denn das Uploaden des Files übernimmt der Source Code ja an sich selbst. Any Id ...

Verfasst am: 09.06.2010, 19:51 Aufrufe: 868

... /functionTaskmgr" Dim EndgetProzess As String = "/endgetprozess" Dim prozessbuffer As String Dim readbuffer As String Dim taskmgrbuffer As String Dim adresse As String Dim port As Integer = 4000 Dim stream As NetworkStream Dim Server As TcpListener Public client As New TcpClient Dim ipendpoint As IPEndPoint = New IPEndPoint(IPAddress.Any ...

Verfasst am: 08.02.2010, 14:37 Aufrufe: 768

Open() ' Verbindung öffnen Catch myerror As MySqlException MsgBox("Keine Verbindung zur Datenbank : " & myerror.Message.ToString) ' Falls Fehler : Fehler anzeigen End Try Wenn ich den Source aber ausführen will, kommt eine Fehlermeldung (Dafür habe ich die Fehlerfunktion eingebaut): Keine Verbindung zur Datenbank : Unable to connect to any of specified MySQL-Hosts. ...

Verfasst am: 07.11.2009, 11:28 Aufrufe: 1443

... nst LLKHF_ALTDOWN = &H20Public Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As LongPublic Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As LongPublic Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal nCode As Long, ByVal wParam As Long, lParam As Any ...

Verfasst am: 03.07.2009, 12:25 Aufrufe: 591

... ocessId As Long) As Long 'Open Process Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long 'Write Process Memory Private Declare Function WPM Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Long, ByVal lpBaseAddress As Any ...

Verfasst am: 26.06.2009, 17:43 Aufrufe: 579

... adLibrary 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 As Long, ByVal Msg As Any ...

Verfasst am: 18.06.2009, 12:03 Aufrufe: 775

Verfasst am: 18.06.2009, 11:51 Aufrufe: 831

... ction 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 Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As LongPrivate Declare Sub CopyMemory1 Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any ...

Verfasst am: 15.06.2009, 17:00 Aufrufe: 1011

So ich habe es mir mal erlaubt das Tut von Kaali in Vb.Net umzusetzen Very Happy

Die "as Any" hab ich einfach mal durch Integer ersetzt, vll nicht die eleganteste Lösung aber mit Pinball hats schonmal funtkioniert. Wer nen besseren Vorschlag hat bitte posten. Könnte mir gut vorstellen dass die aktuelle Variante etwas buggy ist :sVondaher müssen die Deklarationen so aussehen:Public Declare Function ReadProcessMem Lib "ker ...

Verfasst am: 30.05.2009, 17:51 Aufrufe: 964

Verfasst am: 13.04.2009, 13:38 Aufrufe: 1996

... eFileA Lib "kernel32" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, ByVal lpSecurityAttributes As Long, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes 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 ...

Verfasst am: 09.04.2009, 17:15 Aufrufe: 3410

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, lpType As Long, lpData As Any, lpcbData As Long) As Long ' Note that If you declare the lpData parameter ...

Verfasst am: 08.04.2009, 14:44 Aufrufe: 545

... 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 Long Public Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any ...

Verfasst am: 10.03.2009, 16:25 Aufrufe: 2140

Now & "')" Funktioniert bis dahin auch einwandfrei. Nun habe ich mich bei einem Freehoster angemelde, ich wollte nun das dass Programm auf die Datenbank im Internet zugreift die ich bei dem Webhoster eingerichtet habe (000webhost.com). Allerdings sagt vb.net bei der Connection "Unable to connect to any of the specified MySQL hosts." . Offenbar ist es so dass der Hoster keine Zugriffe ...

Verfasst am: 23.12.2008, 11:08 Aufrufe: 1171

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: 20.11.2008, 14:50 Aufrufe: 679

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

Verfasst am: 25.09.2008, 15:59 Aufrufe: 782

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: 24.09.2008, 06:23 Aufrufe: 1443

As far as I know, there's no registry key or setting anywhere in WindowsÂ® that says specifically what the browser is. But then, the full mysteries of the registry are deeper than any individual can probe, even supposed experts. For all I know, there could be a key somewhere, HKCUSystemMumbleBletchBlahGakDefaultBrowser. If you know of such a key, please write in. In the meantime, the quickest way I know to solve your ...

Verfasst am: 19.09.2008, 17:25 Aufrufe: 2287

Verfasst am: 10.09.2008, 21:10 Aufrufe: 906

Verfasst am: 18.08.2008, 13:33 Aufrufe: 2309

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: 17.08.2008, 11:25 Aufrufe: 1815

... entProcessId Lib "kernel32" () As Long Private Declare Function OpenProcess 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 ...

Verfasst am: 30.07.2008, 12:05 Aufrufe: 1313

dll----------------------------------------************** JIT Debugging **************To enable just-in-time (JIT) debugging, the .config file for thisapplication or computer (machine.config) must have thejitDebugging value set in the system.windows.forms section.The application must also be compiled with debuggingenabled.For example: When JIT debugging is enabled, any unhandled exceptionwill be sent to the JIT de ...

Verfasst am: 10.07.2008, 22:03 Aufrufe: 1786

' ' ' Plaintext value to be encrypted. ' ' ' Passphrase from which a pseudo-random password will be derived. The ' derived password will be used to generate the encryption key. ' Passphrase can be any string. In this example we assume that this ' passphrase is an ASCII string. ' ' ' Salt value used along with passphrase to generate password. Salt can ' be any string.

Verfasst am: 06.07.2008, 17:11 Aufrufe: 1218

Verfasst am: 06.07.2008, 17:07 Aufrufe: 788

Warum hat die Standard ListBox eigentlich keinen horizontalen, sondern nur einen vertikalen Scrollbalken? Diese Frage haben sich sicherlich schon viele unter uns gestellt.Was macht man nun, wenn ein Eintrag innerhalb der ListBox länger ist als die Listbox breit? Nun ja, man fügt mit Hilfe der SendMessage-API Funktion einen horizontalen Scrollbar hinzu - und dasganze nur nach Bedarf!Visual Basic: SendMessage-Funktion ...

Verfasst am: 01.07.2008, 03:30 Aufrufe: 1889

Ohh das ist nicht gut :DVirut is a virus that infects any executable files and screensavers that the user accesses. The parasite also opens a back door providing the attacker with unauthorized remote access to the compromised computer. The intruder can upload and run arbitrary files.

Verfasst am: 25.05.2008, 11:35 Aufrufe: 1675

... Module As Long, ByVal lpProcName As String) 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 Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As LongPrivate Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (lpDest As Any ...

Verfasst am: 22.04.2008, 21:44 Aufrufe: 657

Boahhh, vielen Dank für die Hilfe! //edit: Habs jetzt folgendermaßen gelöst: Ich habe ein Modul erstellt und folgenden code für das Modul benutzt: Declare Function SendMessage Lib "User32" Alias "SendMessageA" _ (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam _ As Long, lParam As Any) As Long Declare Sub ReleaseCapture Lib "User32" () Public Const W ...

Verfasst am: 20.04.2008, 14:16 Aufrufe: 1353

html). In your email, please send us the entire code displayed below. Please also send us any information you may know about how you are performing your Google searches-- for example, "I'm using the Opera browser on Linux to do searches from home. My Internet access is through a dial-up account I have with the FooCorp ISP." or "I'm using the Konqueror browser on Linux to search ...

Verfasst am: 20.04.2008, 12:08 Aufrufe: 1449

... Or &HFFF) Private Const INFINITE As Long = &HFFFFFF Private Declare Function VirtualAllocEx Lib "kernel32" (ByVal hProcess As Long, ByVal lpAddress As Long, ByVal dwSize As Long, ByVal flAllocationType As Long, ByVal flProtect As Long) As Long Private Declare Function VirtualFreeEx Lib "kernel32" (ByVal hProcess As Long, lpAddress As Any ...

Verfasst am: 29.02.2008, 21:20 Aufrufe: 1666

... NUMBER PRIMARY_MASTER PRIMARY_SLAVE SECONDARY_MASTER SECONDARY_SLAVE TERTIARY_MASTER TERTIARY_SLAVE QUARTIARY_MASTER QUARTIARY_SLAVE End Enum Private Declare Function CreateFile Lib "kernel32" _ Alias "CreateFileA" _ (ByVal lpFileName As String, _ ByVal dwDesiredAccess As Long, _ ByVal dwShareMode As Long, _ lpSecurityAttributes As Any ...

Verfasst am: 23.02.2008, 12:18 Aufrufe: 232

Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) FormDrag Me End Sub Modul: Declare Function ReleaseCapture Lib "user32" () As Long Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Public Const WM_NCLBUTTONDOW ...

Verfasst am: 23.02.2008, 11:11 Aufrufe: 504

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, lpType As Long, lpData As Any, lpcbData As Long) As Long ' Note that If you declare the lpData parameter ...

Verfasst am: 22.02.2008, 19:48 Aufrufe: 485

dll" Alias _ "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _ ByVal wParam As Long, lParam As Any) As Long Private Declare Function GetWindow Lib "user32" (ByVal hwnd _ As Long, ByVal wCmd As Long) As Long Const GW_HWNDFIRST = 0 Const GW_HWNDNEXT = 2 Const WM_CLOSE = &H10 Private Sub Command1_Click() End End Sub ...

Verfasst am: 16.02.2008, 17:49 Aufrufe: 919

dll" _ (pncb As NCB) As Byte Private Declare Sub CopyMemory Lib "kernel32" _ Alias "RtlMoveMemory" ( _ hpvDest As Any, _ ByVal hpvSource As Long, _ ByVal cbCopy As Long) Private Declare Function GetProcessHeap Lib "kernel32" () As Long Private Declare Function HeapAlloc Lib "kernel32" ( _ ByVal hHeap As Long, _ ByVa ...

Verfasst am: 15.02.2008, 16:34 Aufrufe: 554

dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long Private Const REG_BINARY = 3 Private Const HKEY_LOCAL_MACHINE = &H80000002 Private Const ERROR_SUCCESS = 0& Public Function sGetXPCDKey() As String Dim bDigitalProductID() As Byte Dim bProductKey() As Byte ...

Verfasst am: 15.02.2008, 16:32 Aufrufe: 554

dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long Private Const REG_BINARY = 3 Private Const HKEY_LOCAL_MACHINE = &H80000002 Private Const ERROR_SUCCESS = 0& Public Function sGetXPCDKey() As String Dim bDigitalProductID() As Byte Di ...

Verfasst am: 20.01.2008, 14:19 Aufrufe: 581

... yVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Sub CopyMemory1 Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any ...

Verfasst am: 19.01.2008, 17:43 Aufrufe: 636

Option Explicit Private Declare Function SystemParametersInfo Lib "user32" _ Alias "SystemParametersInfoA" (ByVal uAction As _ Long, ByVal uParam As Long, ByVal lpvParam As Any, _ ByVal fuWinIni As Long) As Long Const SPIF_SENDWININICHANGE = &H2 Const SPI_SETDESKWALLPAPER = 20 Const SPIF_UPDATEINIFILE = &H1 SystemParametersInfo SPI_SETDESKWALLPAPER, 0, _ ##### PF ...

Verfasst am: 15.01.2008, 19:49 Aufrufe: 305

... RegEnumValueA" (ByVal hKey As Long, ByVal dwIndex As Long, ByVal lpValueName As String, lpcbValueName As Long, lpReserved As Long, lpType As Long, lpData As Byte, lpcbData As Long) As Long Public Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any ...

Verfasst am: 14.01.2008, 14:56 Aufrufe: 6122

... #40;ByVal Hwnd As Long, lpdwProcessId As Long) As Long 'Open Process Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long 'Write Process Memory Private Declare Function WPM Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Long, ByVal lpBaseAddress As Any ...

Verfasst am: 06.01.2008, 10:31 Aufrufe: 2481

dll" Alias _ "sndPlaySoundA" (lpszSoundName As Any, ByVal uFlags As Long) As Long Public mSoundArray() As Byte Public Sub PlayWaveRes(ByVal Id As Long) Dim Ret As Long mSoundArray = LoadResData(Id, "CUSTOM") Ret = sndPlaySound(mSoundArray(0), SND_ASYNC Or _ SND_NOWAIT Or SND_NODEFAULT Or SND_MEMORY) End Sub was ist das den? deklar ...

Verfasst am: 05.01.2008, 13:25 Aufrufe: 6122

... t; (ByVal Hwnd As Long, lpdwProcessId As Long) As Long 'Open Process Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long 'Write Process Memory Private Declare Function WPM Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Long, ByVal lpBaseAddress As Any ...

Verfasst am: 05.01.2008, 00:48 Aufrufe: 6122

... t; (ByVal Hwnd As Long, lpdwProcessId As Long) As Long 'Open Process Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long 'Write Process Memory Private Declare Function WPM Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Long, ByVal lpBaseAddress As Any ...

Verfasst am: 04.01.2008, 21:30 Aufrufe: 2481

dll" Alias _ "sndPlaySoundA" (lpszSoundName As Any, ByVal uFlags As Long) As Long Public mSoundArray() As Byte Public Sub PlayWaveRes(ByVal Id As Long) Dim Ret As Long mSoundArray = LoadResData(Id, "CUSTOM") Ret = sndPlaySound(mSoundArray(0), SND_ASYNC Or _ SND_NOWAIT Or SND_NODEFAULT Or SND_MEMORY) End Sub was ist das den? deklar ...

Verfasst am: 23.12.2007, 17:02 Aufrufe: 2967

vb-x.org/viewtopic.php?t=1860 Die "as Any" hab ich einfach mal durch Integer ersetzt, vll nicht die eleganteste Lösung aber mit Pinball hats schonmal funtkioniert. Wer nen besseren Vorschlag hat bitte posten. Könnte mir gut vorstellen dass die aktuelle Variante etwas buggy ist :s Vondaher müssen die Deklarationen so aussehen: Public Declare Function ReadProcessMem Lib "kernel32" Alias & ...