|
Registrieren
Login
Verzögerung variabel
Verfasst am: 26.10.2011, 11:50 Aufrufe: 175
also falls sich jemand dafür interessiert: ich habs geschafft ihn auszutricksen 
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 ...
Verzögerung variabel
Verfasst am: 25.10.2011, 12:02 Aufrufe: 175
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 ...
Byte Array von DLL
Verfasst am: 30.08.2011, 15:41 Aufrufe: 432
Mauszeiger positionieren (in einem Spiel)
Verfasst am: 20.07.2011, 13:19 Aufrufe: 703
hi
ja kein problem...
Private Declare Function SetCursorPos Lib "user32.dll" _
(ByVal x As Long, ByVal y As Long) As Long
Private Sub SetCur2Lbl()
Dim xTop As Long
Dim xLeft As Long
With lblStart
xTop = Me.Top + .Top + (.Height / 2)
xLeft = Me.Left + .Left + (.Width / 2)
xTop = xTop / Screen.TwipsPerPixelX
xLeft = xLeft / Screen.Twi ...
Tape Drive - Bandlaufwerk
Verfasst am: 25.06.2011, 13:30 Aufrufe: 350
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
Tape Drive - Bandlaufwerk
Verfasst am: 25.06.2011, 13:01 Aufrufe: 350
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, 16:04 Aufrufe: 326
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, 19:36 Aufrufe: 474
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 ...
SendKeys Alternativen?
Verfasst am: 14.12.2010, 19:11 Aufrufe: 505
Tastendruck simulieren
Verfasst am: 03.11.2010, 10:14 Aufrufe: 871
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 ...
Bitmap mit untergeordnetem Bitmap als Hintergrund
Verfasst am: 30.07.2010, 16:18 Aufrufe: 413
Bei den bilder handelt es sich um sprites aus denen das weiß raus gemacht werden soll und gegen hintergrund (grün) ersetz werden soll. Hir mein bisheriger Code:
Form1:
Private Declare Function BitBlt Lib "gdi32.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 ...
Rettungsdienst Projekt
Verfasst am: 29.07.2010, 08:30 Aufrufe: 667
.
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&, v ...
Pokemon Programmieren Brauche dringend Hilfe
Verfasst am: 23.07.2010, 18:42 Aufrufe: 559
[Die Bilder sind im Unterordner Bilder]. 
Noch mal der ganze Code 
:
Private Declare Function BitBlt Lib "gdi32.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 BLACKNES ...
Tastatursperre - Need help
Verfasst am: 23.07.2010, 15:16 Aufrufe: 403
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 ...
Visual basic Problem
Verfasst am: 07.07.2010, 19:15 Aufrufe: 333
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
...
Hilfe bei DLL für Parallel Port
Verfasst am: 31.01.2010, 13:55 Aufrufe: 496
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 ...
Progressbar
Verfasst am: 02.01.2010, 15:47 Aufrufe: 1213
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, 18:23 Aufrufe: 1339
Connect TxtIp.Text, TxtPuerto.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" ...
ICQ Fenster in vordergrund holen
Verfasst am: 20.11.2009, 19:37 Aufrufe: 614
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 ...
Befehle werden in falscher Reihenfolge ausgeführt
Verfasst am: 20.11.2009, 19:36 Aufrufe: 770
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 ...
Druckmodul
Verfasst am: 19.11.2009, 08:08 Aufrufe: 1560
vb-x.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 isPri ...
aktives fremdes fenster schliessen
Verfasst am: 08.11.2009, 12:22 Aufrufe: 1440
.bmp Datei erstellen.
Verfasst am: 07.11.2009, 18:51 Aufrufe: 825
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 ...
Keyboard Hook Taste ermitteln
Verfasst am: 07.11.2009, 11:28 Aufrufe: 1443
... 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 ...
Programmfehler mit Visual Basic 2008
Verfasst am: 02.11.2009, 10:28 Aufrufe: 878
Windows.Forms.Form
' Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Dim lngNumDevices As Integer
Dim strBeschreibung As New VB6.FixedLengthString(256)
Dim strReadBuffer As New VB6.FixedLengthString(1024)
Dim strWriteBuffer As String
Dim lngBytesWritten As Integer
Dim lngBytesRead As Integer
Dim lngTotalBytesRead As Integer
Dim FT_RxBytes As Intege ...
kleine icons aus .exe auslesen
Verfasst am: 03.08.2009, 19:02 Aufrufe: 1127
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 ...
Wie Schlagschatten bei Form ohne Rahmen?
Verfasst am: 25.07.2009, 09:30 Aufrufe: 619
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, 12:25 Aufrufe: 591
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 ...
Fenster Ein-/Ausblendeffekte
Verfasst am: 29.06.2009, 14:26 Aufrufe: 1359
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 ...
Datei mittels Windows Dialog verschieben
Verfasst am: 29.06.2009, 14:05 Aufrufe: 569
Beschreibung: Datei mittels Windows Dialog verschiebenFunktion:Visual Basic: Quelle: dotnet-snippets.de
Datei mittels Windows Dialog kopieren
Verfasst am: 29.06.2009, 14:04 Aufrufe: 744
Beschreibung:Datei mittels Windows Dialog kopierenFunktion:Visual Basic: Quelle: dotnet-snippets.de
Globale HotKeys (Tastenkombinationen)
Verfasst am: 29.06.2009, 13:11 Aufrufe: 1935
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, 13:02 Aufrufe: 1054
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, 17:43 Aufrufe: 579
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 ...
Fehler bei GetPixel
Verfasst am: 21.06.2009, 18:41 Aufrufe: 965
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 nXPos As Long, _
ByVal nYPos As Long) As Long
Private Sub frm_Load(ByVal sen ...
Fehler bei GetPixel
Verfasst am: 21.06.2009, 15:32 Aufrufe: 965
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ösungen nicht weiter.
Public Class frm
Declare Function GetPixel Lib "gdi32.dll" ( _
ByVal hdc As Long, _
ByVal nXPos As Long, _
ByVal nYPos As Long) As Long
Private Sub frm_Load(ByVal sender As Sy ...
[B] File Shredder Modul
Verfasst am: 19.06.2009, 19:00 Aufrufe: 1715
Visual Basic: [code]' ###############################' # #' # Coded by ZiG for vb-x.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 lpFileNa ...
Prozesspriorität ändern
Verfasst am: 19.06.2009, 11:28 Aufrufe: 950
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 ...
Windows herunterfahren/neustarten/abmelden
Verfasst am: 18.06.2009, 12:21 Aufrufe: 927
Internetseite öffnen
Verfasst am: 18.06.2009, 12:19 Aufrufe: 1153
Zur Verfügung gestellt von TheCoderApi: Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _ <br /> (ByVal hwnd As Long, ByVal lpOperation As String, _ <br /> ByVal lpFile As String, ByVal lpParameters As String, _ <br /> ByV ...
Beep
Verfasst am: 18.06.2009, 12:16 Aufrufe: 1344
[B] Updater-Source (Easy version)
Verfasst am: 18.06.2009, 12:01 Aufrufe: 1525
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, 12:00 Aufrufe: 829
... me As Long<br /> HighTime As Long<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 ...
Fenstergröße limitieren
Verfasst am: 18.06.2009, 11:51 Aufrufe: 831
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 ...
Progressbar in Statusbar einfügen
Verfasst am: 18.06.2009, 11:05 Aufrufe: 766
Name: SetProgressBarFunktion: Fügt eine Progressbar in ein Panel der Statusbar ein.So. Falls jemand nicht weiß wie man eine Progressbar so schön in eine Statusbar bekommt, so dass sie beim verändern der Form auch immer schön an seinem Platz bleibt, dann sollte er sich mal den source hier ansehen. Benötigte Api:Visual Basic: Sub:Visual Basic: [code]Private Sub SetProgressBar()'Progressbar in Statusbar setzenWith Progr ...
GetShortPathname (Pfad in altes Dos 8.3 Format umwandeln)
Verfasst am: 18.06.2009, 11:03 Aufrufe: 1814
(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, 11:03 Aufrufe: 1091
NewDoEvents
Verfasst am: 18.06.2009, 11:01 Aufrufe: 607
WaitHere (Pause einlegen)
Verfasst am: 18.06.2009, 10:54 Aufrufe: 1117
Fenster außerhalb der eigenen Anwendung beineinflussen
Verfasst am: 17.06.2009, 12:26 Aufrufe: 647
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 ...