|
Registrieren
Login
Problem beim verwenden von Library
Verfasst am: 04.01.2012, 10:13 Aufrufe: 141
Threading.ExceptionFilterHelper.TryCatchWhen(Object source, Delegate method, Object args, Int32 numArgs, Delegate catchHandler)
bei System.Windows.Threading.Dispatcher.InvokeImpl(DispatcherPriority priority, TimeSpan timeout, Delegate method, Object args, Int32 numArgs)
bei MS.Win32.HwndSubclass.SubclassWndProc(IntPtr hwnd, Int32 msg, IntPtr wParam, IntPtr lParam)
bei MS.Win32.UnsafeNativeMethods.Dispatch ...
Verzögerung variabel
Verfasst am: 29.10.2011, 20:00 Aufrufe: 175
du hast auf der zweiten form deinen stop button
definiere eine variable als public und boolean
also
Public Abbruch as boolean
und an einem anderen teil des codes....
Loop Until TimeOut < (GetTickCount / 1000) or abbruch = true
code im commandbutton
abbruch = true
dann wird die schleife entweder nach der wartezeit beendet oder wenn abbruch gedrückt wurde
hoffe du konntest damit w ...
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 ...
konsolen anwendung in eine forms anwendung bringen
Verfasst am: 28.09.2010, 16:12 Aufrufe: 555
Add(e)
End If
__ResultCounter += 1
If __ResultCounter > 255 Then
RaiseEvent ScanComplete(__IPList)
End If
End Sub
Friend Structure PingResult
Dim IP As String
Dim Successful As Boolean
Dim ElapsedTime As Long
Dim Hostname As String
Dim TimeOut As Integer
Friend Sub New(ByVal _IP As ...
bin frustriert, ping
Verfasst am: 24.01.2010, 18:09 Aufrufe: 464
..
bin ziemlich frustriert, nach langem suchen im internet bekomme ich es einfach nicht hin 
ich habe folgenden quelltext:
Dim myPing As New Ping()
Dim host_karuru As String = "10.2.0.1"
Dim reply_karuru As PingReply = myPing.Send(host_karuru, timeout, buffer, pingOptions)
If reply_karuru.Status = IPStatus.Success Then
lbl_karuru.ForeColor = System.Drawing.Color.Green
...
basMSSQL
Verfasst am: 26.11.2009, 10:45 Aufrufe: 815
Properties("Data Source") = Trim(Host)
' User-ID
.Properties("User ID") = Trim(User)
' Userpasswort
.Properties("Password") = Trim(Passwort)
'Timeout
.ConnectionTimeout = 10
On Error GoTo ConnectErr
.Open
End With
GoTo Verbunden
ConnectErr:
ConnectMSSQL = False
Exit Function
Verbunden:
ConnectMSSQL = True
End Function
Public F ...
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 ...
Web.de Checker mit Cookies
Verfasst am: 25.10.2009, 13:31 Aufrufe: 6294
x 200 OK
Date: Sun, 25 Oct 2009 12:24:21 GMT
Server: Apache
Content-Type: image/gif
Last-Modified: Fri, 13 Mar 2009 17:59:13 GMT
Etag: "40db99b-1ee8-dbc0de40"
Accept-Ranges: bytes
Content-Length: 7912
Cache-Control: max-age=2592000, public
Expires: Tue, 24 Nov 2009 12:24:17 GMT
Age: 4
Keep-Alive: timeout=3, max=100
Connection: Keep-Alive
--------------------------------------------------------- ...
httpwebrequest frage
Verfasst am: 19.02.2009, 20:50 Aufrufe: 1280
Create("http://svrwalk.sv.funpic.de"), HttpWebRequest)
req.Method = "POST"
req.ContentType = "application/x-www-form-urlencoded"
req.Timeout = 12000
Dim post As String = Path.Combine(verz, fpath)
Dim byteArray() As Byte = Encoding.UTF8.GetBytes(post)
req.ContentLength = byteArray.Length
...
Makro ausführen...
Verfasst am: 06.02.2009, 20:10 Aufrufe: 1219
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
...
[VB6] Email mit Anhang
Verfasst am: 19.07.2008, 15:03 Aufrufe: 934
Tool geht mit MsgBox aber ohne nicht?
Verfasst am: 10.07.2008, 15:59 Aufrufe: 583
Kann mir nur vorstellen dass es ne waitfunktion ist, die das ganze Prog komplett einfriert und so auch den webbrowser.Wenn die msgbox aktiv ist, dann ladet der webbrowser im Hintergrund weiter und somit funktioniert der code dann auch.Statt dem wait solltest du ne Schleife einbauen die solange läuft bis das gewünschte Ergebnis erreicht ist. Zusätzlich wäre ein Timer für nen Timeout noch gut.
Im ASP.NET die Standartseite des Browsers herauslesen
Verfasst am: 09.07.2008, 12:49 Aufrufe: 924
Der Auftraggeber möchte wenn ein Timeout auftritt, dass es dann auf die Intranetstartseite gehen soll (mir auch ein kleines Rätsel Regenwurm!
Webrowser braucht zu lange zum laden
Verfasst am: 07.07.2008, 17:35 Aufrufe: 541
Wie viele benutzen mein Programm?
Verfasst am: 15.06.2008, 02:04 Aufrufe: 1497
Selbstgemachte Progressbar
Verfasst am: 12.06.2008, 17:22 Aufrufe: 1266
Label baut sich auf
Verfasst am: 14.05.2008, 14:09 Aufrufe: 518
Shutdown mit PowerOff
Verfasst am: 29.04.2008, 12:10 Aufrufe: 995
[Video] Chat Flooder
Verfasst am: 07.04.2008, 16:45 Aufrufe: 4549
Modul:
' *********************************************************
' *
' * 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 Schle ...
Winsock timeout?
Verfasst am: 24.02.2008, 18:55 Aufrufe: 560
Also Timer starten bevor du etwas mit dem winsock machst.
Am Ende des Codes den Timer wieder auf false setzen (Auch im Timer nicht vergessen).
Falls nun der Code normal zu Ende läuft, wird es keinen Timeout geben.
Falls aber keine Verbindung zustandekommt oder es sonst iwelche Probleme gibt, wird der Timer aktiviert.
Die Boolean Variable sollte natürlich dann in Verbindung mit einer Schleife oder zumindes ...
Winsock timeout?
Verfasst am: 24.02.2008, 17:53 Aufrufe: 560
Wie kann ich nen timout in nen winsock element machen?
Timeout problem beim internet transfer control
Verfasst am: 15.01.2008, 09:39 Aufrufe: 269
Durch nen Timeout wird wohl irgendwie das Problem entstehen, dass bei den weiteren Aufrufen erst garnicht versucht wird ne Seite aufzurufen sondern gleich ein Fehler zurückgegeben wird.
Deswegen rattert er wohl so einfach die Liste durch.
Wieso das so ist weiß ich nicht.
Ich würde dir stark empfehlen aufs winsock umzusteigen.
http://www.vbforums.com/showthread.php?t=334645
Besonders, da du nur den Quelltext ...
Timeout problem beim internet transfer control
Verfasst am: 15.01.2008, 04:23 Aufrufe: 269
Ich habe kürzlich einen source geschrieben in dem ich urls , die in einer listbox aufgeführt sind, mit den internet transfer control öffne und den quelltext auslese. Mit on error unterbinde ich ein abstürzen der programms durch einen timeout fehler aber dennoch gibt es folgendes problem:
Sobald der timeout einer seite erreicht ist, überprüft mein programm die weiteren urls gar nicht mehr sondern rasselt mehr oder ...
Sleep function
Verfasst am: 13.01.2008, 21:00 Aufrufe: 545
Modul
' *********************************************************
' *
' * 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 Schlei ...
frage zu Winsock
Verfasst am: 17.12.2007, 19:19 Aufrufe: 386
dll" (ByVal HANDLE As Long) As Boolean
Private Declare Function IcmpSendEcho Lib "ICMP" (ByVal IcmpHandle As Long, ByVal DestAddress As Long, ByVal RequestData As String, ByVal RequestSize As Integer, RequestOptns As IP_OPTION_INFORMATION, ReplyBuffer As IP_ECHO_REPLY, ByVal ReplySize As Long, ByVal TimeOut As Long) As Boolean
Private Sub Form_Load()
Const HostName = &q ...
e-mail funktion
Verfasst am: 05.12.2007, 18:13 Aufrufe: 932
txtStatus = frmStatus.txtStatus + strData
End If
End Sub
' Auf Antwort warten!
Public Function WaitForResponse() As Boolean
' spätestens nach 45 Sekunden abbrechen
Const TimeOut = 45
Dim iStart As Long
iStart = Timer
WaitForResponse = False
With Winsock1
While strResponse = ""
' Bei unvorhergesehenem Verbindungsabbruch
If .State > sckConnected Then
...
Kleinigkeiten ausfeilen
Verfasst am: 02.08.2007, 19:57 Aufrufe: 467
Unklare Sections zum TS² Tool
Verfasst am: 02.08.2007, 13:56 Aufrufe: 369
Wert1 = Int((9999999 * Rnd) + 1) '<- Zuweisen und nicht benutzen
Dim AppID As Long '<- Warum deklarieren und nicht benutzen?
DoEvents
1:
End Sub
-----------------------------------------------------------
' ### Was bringt diese Sub? ###
Public Sub Delay(nSekunden As Long)
Dim TimeOut As Long
' Abbruchbedingung für die Do Loop Schleife erm ...
mp3 Player
Verfasst am: 21.07.2007, 16:04 Aufrufe: 967
currentPosition
End Sub
Modul:
' *********************************************************
' *
' * Modul Delay
' *
' *********************************************************
Option Explicit
' API Declaration
Public Declare Function GetTickCount Lib "kernel32" () As Long
Public Sub Delay(nSekunden As Long)
Dim TimeOut As Long
' Abbruchbeding ...
frage zu sendkey
Verfasst am: 22.04.2007, 20:37 Aufrufe: 712
frage zu sendkey
Verfasst am: 22.04.2007, 20:00 Aufrufe: 712
bas
' 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 ermitteln
TimeOut = (GetTickCount / 1000) + nSekunden
Do
' Systemevents zulassen
DoEvents
' TimeOut erreicht?
Loop Until TimeOut < (Get ...
programm erstellen mit schleife und url aufrufen
Verfasst am: 01.04.2007, 06:58 Aufrufe: 760
Submit
End With
Next i
Exit Sub
'Fehlerausgabe
Err:
Call MsgBox("Fehler!", vbExclamation)
End Sub
Private Sub Command2_Click() 'Stop Click
break = True
End Sub
Private Sub Delay(nSekunden As Long)
Dim TimeOut As Long
TimeOut = (GetTickCount / 1000) + nSekunden
Do
DoEvents
Loop Until TimeOut < (GetTickCount / 1000)
End Sub
----------- ...
VB Laufzeitfehler 13 seit installation von SP2
Verfasst am: 09.11.2004, 15:03 Aufrufe: 336
ganz zu Anfang habe ich die Variablen deklariert so das sie in allen Sub's gleich genutzt werden können: Option Explicit Dim TimeStart, TimeEnd, TimeDiff, file As Variant Dim Antwort, antwort1, Befehl, xSpur, Encode, Decode As String Dim checksumme As Byte Dim timeout As Long Dim cs, key, code As Integer Ich verstehe das so als wenn er auf einmal Probleme damit hat, das er Behehl nicht als Strin ...