Visual Basic Forum

Verfasst am: 11.04.2012, 06:12 Aufrufe: 118

Hallo liebe Community, Ich habe folgendes Problem und zwar möchte ich gerne eine Progressbar Durch einen Tastendruck starten und diese zurücksetzen falls sie ihr Maximum erreicht hat. Zusätzlich möchte ich aber gerne erreichen das bei einem Tastendruck vor erreichen des Maximums der Progressbar diese ebenfalls zurück gesetzt wird. Hierzu mal mein Code soweit, dieser funktioniert auch (halbwegs) jedoch wird nicht j ...

Verfasst am: 20.02.2012, 01:45 Aufrufe: 171

Hallo, ich möchte, dass die Fensterposition & Größe von einem externem Programm geändert wird. Leider funktioniert das nur mit dem Windows Editor (Notepad). Wenn ich andere Prozessnamen eingebe, z.B.: firefox, calc (windows Taschenrechner), wird dieser nicht geändert. Ich würde noch gerne wissen, ob Zeile 25 und 26 notwendig sind, bzw. was diese machen. Ich hoffe ihr könnte mir weiterhelfen, Danke! hi ...

Verfasst am: 26.10.2011, 12:50 Aufrufe: 294

also falls sich jemand dafür interessiert: ich habs geschafft ihn auszutricksen Wink

hier der code: Public Declare Function GetTickCount Lib "kernel32" () As Long Public x As Long Public zeit() As Currency Public Sub Delay(nsekunden As Long) Dim TimeOut As Long TimeOut = (GetTickCount / 1000) + nsekunden Do DoEvents Loop Until TimeOut < (GetTickCount / 1000) End Sub x ...

Verfasst am: 25.10.2011, 13:02 Aufrufe: 294

php?id=528 ' ********************************************************* ' * ' * Modul Delay ' * ' ********************************************************* Option Explicit ' API Declaration Public Declare Function GetTickCount Lib "kernel32" () As Long Public Sub Delay(nSekunden As Long) Dim TimeOut As Long ' Abbruchbedingung für die Do Loop Schleife ermi ...

Verfasst am: 25.06.2011, 14:30 Aufrufe: 668

Long durch Integer ersetzt, damit es den Konventionen entspricht Public Declare Function PrepareTape Lib "kernel32" (ByVal hDevice As Integer, ByVal dwOperation As Integer, ByVal bimmediate As Integer) As Integer Ändert aber nicht wirklich was Wink

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

Verfasst am: 16.12.2010, 20:36 Aufrufe: 571

Hallo erstmal. Ich bin neu hier. Und wie das meistens so ist, haben die Neulinge erst einmal ein paar Fragen. Genau so wie meine Wenigkeit. Ich habe folgendes Problem: Ich versuche eine Funktion zu implementieren, bei der man ein Objekt (Block) durch drücken der linken Maustaste quasi wie bei Drag&Drop bewegen kann. Um anzuzeigen, daß der Nutzer dieses Objekt mit der Maus hält, möchte ich einen Rahmen der F ...

Verfasst am: 03.11.2010, 11:14 Aufrufe: 1158

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: 23.07.2010, 16:16 Aufrufe: 450

zu sperren ABER meine form nicht? Hier ist der code: Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Public Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Ha ...

Verfasst am: 07.07.2010, 20:15 Aufrufe: 366

Und genau da liegt mein problem! Ich kriege es nur hin das maús und tastatur gesperrt sind aber nicht das mit dem desktop Bitte helft mir! Souce code: Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Public Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long ...

Verfasst am: 31.01.2010, 14:55 Aufrufe: 567

Nun ist es so, es gibt eine sogenannte Inpout32.dll, die die Funktionen für die Steuerung des Port enthält. 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 ...

Verfasst am: 14.12.2009, 19:23 Aufrufe: 1617

Also wenn ich den Client völlig transparentz mache und cmdConect In den form_load verschiebe, sehe ich nichts als server, also sobald was transparentz ist sehe ich nichts als server. Private Sub Form_Load() Dim lpszName As String * 100 Dim lpszVer As String * 100 Dim Caps As CAPDRIVERCAPS Calidad = 75 capGetDriverDescriptionA 0, lpszName, 100, lpszVer, 100 '// Retrie ...

Verfasst am: 20.11.2009, 20:36 Aufrufe: 815

Mal davon abgeshen, dass eine "Delay-Funktion" in VB ja eigentlich nicht gibt, hab ich mir einfach selber ne simple gebaut. Option Explicit Public Declare Function GetTickCount Lib "kernel32" () As Long Public Sub Delay(nSekunden As Long) Dim TimeOut As Long TimeOut = (GetTickCount / 1000) + nSekunden Do DoEvents Loop Until TimeOut < (GetTic ...

Verfasst am: 19.11.2009, 09:08 Aufrufe: 1637

Ich habe mich ma an die Arbeit gemacht und euch ein kleines Druckmodul geschrieben.Damit könnt ihr- Testen , ob ein Drucker vorhanden ist, wenn ja , wird er angezeigt- Drucken - Bis jetzt sonst nichts mehr :DNaja , ihr könnts euch mal anschauen.Der Vorteil dabei ist, dass ihr nicht immer den Code schreiben müsst (falls euer Tool überhaupt die Druckfunktion braucht) , sondern einfach die Funktion aufrufen könnt.Das Mo ...

Verfasst am: 07.11.2009, 12:28 Aufrufe: 1527

... 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 = &H20Public Declare ...

Verfasst am: 03.08.2009, 20:02 Aufrufe: 1189

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: 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 '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 Li ...

Verfasst am: 29.06.2009, 14:11 Aufrufe: 2113

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

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: 21.06.2009, 19:41 Aufrufe: 1141

Vielen Dank für die Info. Ich habe den Code geändert in: >>hdc As System.Windows.Forms.PictureBox<< Siehe unten. Er läuft jetzt durch. Nur das Ergebnis macht mich etwas stutzig. Der Wert soll 8589934591 sein. Kann das richtig sein ? Gruß Würzie Public Class frm Declare Function GetPixel Lib "gdi32.dll" ( _ ByVal hdc As System.Windows.Forms.PictureBox, _ ByVal nX ...

Verfasst am: 21.06.2009, 16:32 Aufrufe: 1141

Hallo an alle , dies ist mein erster Thread hier. Ich habe vor 4 Tagen mit Visual Basic 2008 angefangen. Ich habe ein Übungbuch durchgearbeitet. Jetzt wage ich mich an meine ersten kleines eigenes Programme. Ich komme an einer Stelle nicht weiter. Ich möchte den Pixelwert des Bildes der PictureBox an der stelle 100, 100 auslesen. Meine PictureBox lautet pb. Ich habe hier schon gesucht, komme aber mit den L ...

Verfasst am: 19.06.2009, 12:28 Aufrufe: 1011

Name: SetPriorityFunktion: Verändert die Priorität des eigenen ProzessesRückgabe: keineLink: http://www.vbarchiv.net/tipps/details.php?id=1136Verkürzte Version von mir:Die Priorität wird auf "Niedrig" geändert. Ich denke was anderes wird man selten brauchen, aber ihr könnt euch ja am oberen Link die Konstanten ansehen und es selbst anpassen. Api:Visual Basic: Sub:Visual Basic: Verwendung:Visual Basic: [code]Call SetP ...

Verfasst am: 18.06.2009, 13:01 Aufrufe: 2079

Autor: DFJhi, da ich in letzen tag lange weile hatte habe ich mal ein easy updater geschrieben .Dim versioninfo As String Public versionneu As String Dim Ftpadresse As String Private Declare Function URLDownloadToFile Lib "urlmon" Alias _ "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal _ szFile ...

Verfasst am: 18.06.2009, 13:00 Aufrufe: 905

Autor: big earlAlso das ist ein kleiner Login, der seine Einstellungen in der Reg speichertPro- Man hat keine Dateien aus denen das PW ausgelesen werden kann- Ich find, man kann besser AbfragenKontra- Längerer Code ( auch nicht so wirklich )- Falls man für das Schreiben in 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 nic ...

Verfasst am: 18.06.2009, 12:01 Aufrufe: 669

Name: NewDoEventsFunktion: Führt DoEvents nur aus falls mit der Maus oder Tastatur etwas gedrückt wurde. Aber auch spätestens nach 100 Aufrufen. (Kann man ändern)Rückgabe: KeineBeschreibung:Das seltene Aufrufen, bzw. nur wenn es gebraucht wird, von DoEvents führt zu einer höheren Geschwindigkeit des Programmes.Benötigte Api:Visual Basic: [code]Private Declare Function GetInputState Lib "user32" () As Long[/code]Visua ...

Verfasst am: 18.06.2009, 11:54 Aufrufe: 1229

Verfasst am: 15.06.2009, 18:53 Aufrufe: 1162

Hab vorhin im Netz eine sehr interessante Klasse von Cory Smith gefunden: Public Class MemoryManagement Private Declare Function SetProcessWorkingSetSize Lib "kernel32.dll" ( _ ByVal process As IntPtr, _ ByVal minimumWorkingSetSize As Integer, _ &nbs ...

Verfasst am: 15.06.2009, 18:27 Aufrufe: 1115

Ich habe vor ein paar Wochen angefangen VB.Net 2005 zu lernen und habe gestern mein erstes selbstständiges Programm geschrieben. Ein ganz nützliches Programm was ich schon immer brauchte, eine art Zeitschaltuhr die nach angegebener Zeit eine bestimmte Funktion ausführt (Ton-Signal, Runterfahren, Ruhezustand und Standby).Naja ich wollte mal fragen wie ihr es findet und ob ihr vllt noch Verbesserungsvorschläge habt.htt ...

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

Verfasst am: 15.06.2009, 16:51 Aufrufe: 686

So .. habe mich schonmal weiter vorgekämpft ... Public Class MainScreen Private Declare Function GetAsyncKeyState Lib "user32.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 Mausbutt ...

Verfasst am: 15.06.2009, 13:38 Aufrufe: 686

Hi, ich bin heute das erste Mal in VB zugange und habe natürlich erstmal ein paar Fragen, von denen ich hoffe, dass ich diese hier beantwortet bekomme oder zumindest Tipps bekomme Wink

Ich möchte mir ein echt kleines Programm schreiben, welches mir in einer TextBox die aktuell gedrückten Tasten anzeigt, nicht mehr und nicht weniger ... also kein riesen Programm oder ähnliches. Jetzt habe ich mir schon ein paar ...

Verfasst am: 15.06.2009, 12:29 Aufrufe: 1237

Thema: ADS – Alternate Data Stream (Wikipedia, Msdn)Hallo an alle.Wiedermal hab ich mich an ein Tutorial gesetzt. Diesmal möchte ich euch etwas Besonderes zeigen.1. Erklärung Ich versuche mal so einfach wie möglich zu erklären was es mit ADS auf sich hat.ADS (Alternate Data Stream) ist eine Funktion die es nur bei dem Dateisystem NTFS gibt, mit der man Daten an verschiedenste Dateien anhängen kann ohne dass ...

Verfasst am: 30.05.2009, 18:51 Aufrufe: 1039

hi bin neu hir sieht man an meinen Posts, aber bräuchte mal hilfe und zwar suche ich nen snippet zu nem start menu hide. Fand bisher nur keyhooks und wollte wissen ob es per Registry oder einem Befehl möglich ist das Start Menü zu Hiden oder abzuschalten. Grund: Schreibe an einem Sicherheitsprogramm wo bei mehrfacher Passwortfalscheingabe sich einige Funktionen abschalten. Danke schonmal im vorraus. <K ...

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

Verfasst am: 13.04.2009, 14:38 Aufrufe: 2109

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

Verfasst am: 08.04.2009, 15:44 Aufrufe: 592

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.03.2009, 11:23 Aufrufe: 794

In folgenden Code meldet cscript auf einem Windows 2003 Server (SP2) einen Fehler beim ersten 'As': >Option Explicit > >Private Structure MEMORYSTATUS > Public dwLength As Long > Public dwMemoryLoad As Long > Public dwTotalPhys As Long > Public dwAvailPhys As Long > Public dwTotalPageFile As Long > Public dwAvailPageFile As Long > Public dwTotalVirtual As ...

Verfasst am: 06.02.2009, 21:10 Aufrufe: 1270

hi aber so schwer is das ja nicht Option Explicit ' API Declaration Public Declare Function GetTickCount Lib "kernel32" () As Long Public Sub Delay(nSekunden As Long) 'ist für die wartezeit Dim TimeOut As Long ' Abbruchbedingung für die Do Loop Schleife ermitteln TimeOut = (GetTickCount / 1000) + nSekunden Do ' Systemevents zulassen ...

Verfasst am: 06.02.2009, 18:47 Aufrufe: 2032

Also das ist ein kleiner Login, der seine Einstellungen in der Reg speichert Pro - Man hat keine Dateien aus denen das PW ausgelesen werden kann - Ich find, man kann besser Abfragen Kontra - Längerer Code ( auch nicht 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, brau ...

Verfasst am: 16.12.2008, 16:40 Aufrufe: 1374

Guten Tag. Ich habe mich darin versucht eine INI datei in VB.Net zu bearbeiten allerdings bin nicht nicht all zu weit gekommen. Hier mein Source Public Sub SaveINISetting(ByVal Filename As String, ByVal Key As String, ByVal Setting As String, ByVal Value As Object) WritePrivateProfileString(Key, Setting, Value, Filename) End Sub Public Function GetINISetting(ByVal Filename As String, ByV ...

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: 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: 01.09.2008, 17:15 Aufrufe: 1758

Hier biete ich ein TuT an , wie man ein Screen Programm schreibt.bitte Codes genau durchlesen , zum lernen , nich C&P...Fangen wir an , als erstes brauchen wir ein Module , das die ganzen Funktionen deklariert.Modul einfügen mit folgendem Code:Declare Function MapVirtualKey Lib "user32" Alias "MapVirtualKeyA" (ByVal wCode As Long, ByVal wMapType As Long) As Long Declare Sub keybd_ev ...

Verfasst am: 28.07.2008, 18:47 Aufrufe: 1708

Verfasst am: 27.07.2008, 23:41 Aufrufe: 1647

(bla;6131)Visual Basic: Dann error:Public Sub PlayWav(sFile As StringMehrdeutiger Name PlayWavIch habs jetzt so:'GetAsyncKeyState ist eine Funktion aus der Datei "user32.dll" und wird hier deklariert. Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal nVirtKey As Long) As Integer 'Funktion für Wav 'Funktion für Wav<br / ...

Verfasst am: 27.07.2008, 23:35 Aufrufe: 1647

Verfasst am: 27.07.2008, 22:53 Aufrufe: 1647

(LooneyToons;6121)Change ma das Public in Private , dann müsste der Fehler nicht mehr kommenVisual Basic: Jo , so Funktioniert der Code schon , Dankesehr, ABER:Wenn ich eingebePlayWav (txt_pfad.text)oder PlayWave (txt_pfad.text)Kommt error , dass die Funktion nicht Definiert sei.Wen du den Code haben willst, und ihn nich weiter gibst, sondern ihn dir nur anschaust, schick ichs dir ma Per PM, OK?Edit:Wenn ichCall Play ...

Verfasst am: 27.07.2008, 22:49 Aufrufe: 1647

Verfasst am: 27.07.2008, 22:35 Aufrufe: 1647

Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal nVirtKey As Long) As Integer 'Funktion für Wav 'Funktion für Wav Public Declare Function playa Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long Public Sub PlayWav(sFil ...