Rabia Abu Hanna Forexvisor

Wie kann ich mein VB-Programm für 5 Sekunden schlafen fügen Sie ein. bas-Modul zu Ihrem Projekt hinzu Name it mWait. bas Fügen Sie alle Code unten in es und rufen Sie es in Ihrer App warten X: wo x Sekunden, um dies zu verzögern wird Ihnen App Zu warten, aber nicht reagieren von Ursache Fenster zu quothangquot Private Type FILETIME dwLowDateTime als lange dwHighDateTime als Long-End-Typ Private Const WAITABANDONEDamp ampH80amp Private Const WAITABANDONED0amp ampH80amp Private Const WAITFAILEDamp -1amp Private Const WAITIOCOMPLETIONamp ampHC0amp Private Const WAITOBJECT0amp 0 Private Const WAITOBJECT1amp 1 Private Const WAITTIMEOUTamp ampH102amp private Const INFINITE ampHFFFF private Const ERRORALREADYEXISTS 183amp private Const QSHOTKEYamp ampH80 private Const QSKEYamp ampH1 private Const QSMOUSEBUTTONamp ampH4 private Const QSMOUSEMOVEamp ampH2 private Const QSPAINTamp ampH20 private Const QSPOSTMESSAGEamp ampH8 private Const QSSENDMESSAGEamp ampH40 private Const QSTIMERamp ampH10 private Const QSMOUSEamp (QSMOUSEMOVE Oder QSMOUSEBUTTON) Privat konst QSINPUTamp (QSMOUSE Oder QSKEY) private const QSALLEVENTSamp (QSINPUT Oder QSPOSTMESSAGE Oder QSTIMER Oder QSPAINT Oder QSHOTKEY) private const QSALLINPUTamp (QSSENDMESSAGE Oder QSPAINT Oder QSTIMER Oder QSPOSTMESSAGE Oder QSMOUSEBUTTON Oder QSMOUSEMOVE Oder QSHOTKEY Oder QSKEY) private Declare Function Create Lib quotkernel32quot Alias ​​quotCreateWaitableTimerAquot ( ByVal lpSemaphoreAttributes wie lange, byVal bManualReset wie lange, ByVal lpName als String) als lange private deklarieren Funktion OpenWaitableTimer Lib quotkernel32quot Alias ​​quotOpenWaitableTimerAquot (ByVal dwDesiredAccess wie lange, byVal bInheritHandle wie lange, ByVal lpName als String) als lange private Declare Funktion SetWaitableTimer Lib quotkernel32quot ( ByVal hTimer wie lange, lpDueTime als FILETIME, ByVal lPeriod wie lange, byVal pfnCompletionRoutine wie lange, ByVal lpArgToCompletionRoutine wie lange, ByVal fResume so lange) als lange private deklarieren Funktion CancelWaitableTimer Lib quotkernel32quot (ByVal hTimer wie lange) Private Declare Funktion CloseHandle Lib quotkernel32quot ( ByVal hObject wie lange) Wie lange private deklarieren Funktion WaitForSingleObject Lib quotkernel32quot (ByVal hHandle so lange, byVal dwMilliseconds so lange) wie lange private deklarieren Funktion MsgWaitForMultipleObjects Lib quotuser32quot (ByVal nCount wie lange, pHandles so lange, byVal fWaitAll wie lange, ByVal dwMilliseconds as Lange, ByVal dwWakeMask wie lange) Wie lange öffentliche Sub Warte (lNumberOfSeconds wie lange) Dim ft Als FILETIME Dim lBusy wie lange Dim LRet wie lange Dim dblDelay als Double Dim dblDelayLow als Double Dim dblUnits als Double Dim HTimer als lange hTimer CreateWaitableTimer (0, True, App. EXEName amp quotTimerquot) Wenn Err. LastDllError ERRORALREADYEXISTS Dann Wenn der Timer bereits existiert, tut es nicht weh, es zu öffnen, solange die Person, die versucht, es zu öffnen, die richtigen Zugriffsrechte hat. Else ft. dwLowDateTime -1 ft. dwHighDateTime -1 lRet SetWaitableTimer (hTimer, ft, 0, 0, 0, 0) End If Konvertieren Sie die Einheiten in Nanosekunden. DblUnits CDbl (ampH10000) CDbl (ampH10000) dblDelay CDbl (lNumberOfSeconds) 1000 10000 Durch die Einstellung der Highlow-Zeit auf eine negative Zahl, sagt es dem Wait (in SetWaitableTimer), eine Offset-Zeit im Gegensatz zu einer hartcodierten Zeit zu verwenden. Wenn es positiv wäre, würde es versuchen, den Wert in GMT umzuwandeln. Ft. dwHighDateTime - CLng (dblDelay dblUnits) - 1 dblDelayLow - dblUnits (dblDelay dblUnits - Fix (dblDelay dblUnits)) Wenn dblDelayLow lt CDbl (ampH80000000) Dann ist ampH80000000 MAXLONG, so dass Sie nur sicherstellen, dass Sie nicht überlaufen, wenn Sie versuchen, Stecke es in die FILETIME-Struktur. DblDelayLow dblUnits dblDelayLow End Wenn ft. dwLowDateTime CLng (dblDelayLow) lRet SetWaitableTimer (hTimer, ft, 0, 0, 0, False) QSALLINPUT bedeutet, dass MsgWaitForMultipleObjects jedes Mal zurückgibt, wenn der Thread, in dem es läuft, eine Nachricht erhält. Wenn du hier Notizen machen wolltest, dann kannst du DefewindowProc seine normale Windows-Meldungsbearbeitung machen, wie zB DDE usw. lBusy MsgWaitForMultipleObjects (1, hTimer, False, INFINITE, QSALLINPUTamp) DoEvents Loop Bis lBusy WAITOBJECT0 Schließen Sie die Griffe, wenn Sie mit ihnen fertig sind. CloseHandle hTimer Ich bin mir nicht sicher, wo der Code von ursprünglich kam, aber es funktioniert super, als ich das folgende in meiner ASP-Seite enthalten habe. Sub-Delay (pdblSeconds as Double) Verzögerung für x secodns dieses Sub verwendet sehr wenig CPU resouces Const OneSecond als Double 1 (1440 60) Dim dblWaitUntil Als Datum dblWaitUntil Jetzt OneSecond pdblSeconds tun bis NowgtdblWaitUntil Sleep 100 DoEvents Erlaube Windows-Nachricht zu verarbeiten Loop bekomme ich Der folgende Fehler, und nicht in der Lage, es zu lösen. Wenn Sie helfen können, bitte tun. Microsoft VBScript Compilation-Fehler 800a03ee adminDBMaintDBDel2.asp, Zeile 45how, um das Root-Passwort in mysql ändern Passwort auf SQL Server setzen 7.02000 By. Rabia Abu-Hanna 1. Wir brauchen den folgenden Pfad zu öffnen: Konsole Root gtgtgt Microsoft SQL Server gtgtgt SQL Server Group gtgtgt Server Name gtgtgt Sicherheit gtgtgt Logins gtgtgt Wir müssen die Eigenschaften von BUILTINAdministratoren öffnen und dann in den Topic General wählen: (Deny Zugriff) der Windows NT-Authentifizierung. 2. Wir müssen die Eigenschaften des Benutzers öffnen. Sa zu wählen. SQL Server-Authentifizierung und dann das Passwort für den sa-Benutzernamen hinzufügen. 3. Zurück zum Grundfenster des SQL zurückkehren. Und klicken Sie mit der rechten Maustaste auf den Servernamen klicken gtgtgt SQL Server-Registrierung ändern gtgtgt und dann wählen: SQL Server-Authentifizierung verwenden den Benutzernamen einstellen sa Wählen Sie die CheckBox unten aus Immer Aufforderung für Login-Name und Passwort. Und dann auf ok klicken. 4. Aus dem Visual Basic Module: Wir müssen die Connection String für Exp. StrCnn quotProviderSQLOLEDB.1Initi al CatalogDBNameData Sourcelocalquot Aus den Verbindungsoptionen müssen wir die Anweisung wie folgt aufrufen: Mit cn. Open strCnn, quotsaquot, quotquot End With