vb6 ücretli veya ücretsiz destek

11-10-2016, 08:12:49

If IsNumeric(List1.List(0)) Then
uyenom = List1.List(0)
Else
'usernamein uyeidsini bul önce!
uyenom = twitter.uyeid_cek(List1.List(0))
End If

Yukardaki kod çağrısında aşağıdaki kısımda bazen hata veriyor.
Visual Basic 6 üzerinde olduğu için c# try catch fonksiyonu gibi birşey bulamadım. Bu konuda ücretsiz veya ücretli problemi çözebilecek birini aramaktayım. İstediğim şey, eğer herhangi bir hata olursa list1'deki o satırı atlayıp veya silip alttaki sıraya geçmesi işleme devam etmesi

Function uyeid_cek(username As String)
On Error Resume Next
Set WinHttpReq = CreateObject("WinHttp.WinHttpRequest.5.1")
WinHttpReq.Open "GET", "https://www.twitter.com/" & username & "/", False
WinHttpReq.Send
mato = Split(WinHttpReq.responseText, """id"": """)
If UBound(mato) > 0 Then
If InStr(mato(1), """, """) Then
rato = Split(mato(1), """, """)
uyeid_cek = rato(0)
Else
uyeid_cek = 0
End If
End If
End Function

11-10-2016, 11:25:36

#2

mtoy

Evet alttaki fonksiyonda kullandığın kod satırını üstteki fonksiyonun başına yazabilirsin. On Error Resume Next

Yada
On Error GoTo hata
yapıp alt kısma

hata:
yazabilirsin

11-10-2016, 19:45:08

#3

mtoy

BoogeymaN adlı üyeden alıntı: mesajı görüntüle

If IsNumeric(List1.List(0)) Then
uyenom = List1.List(0)
Else
'usernamein uyeidsini bul önce!
uyenom = twitter.uyeid_cek(List1.List(0))
End If

Yukardaki kod çağrısında aşağıdaki kısımda bazen hata veriyor.
Visual Basic 6 üzerinde olduğu için c# try catch fonksiyonu gibi birşey bulamadım. Bu konuda ücretsiz veya ücretli problemi çözebilecek birini aramaktayım. İstediğim şey, eğer herhangi bir hata olursa list1'deki o satırı atlayıp veya silip alttaki sıraya geçmesi işleme devam etmesi

Function uyeid_cek(username As String)
On Error Resume Next
Set WinHttpReq = CreateObject("WinHttp.WinHttpRequest.5.1")
WinHttpReq.Open "GET", "https://www.twitter.com/" & username & "/", False
WinHttpReq.Send
mato = Split(WinHttpReq.responseText, """id"": """)
If UBound(mato) > 0 Then
If InStr(mato(1), """, """) Then
rato = Split(mato(1), """, """)
uyeid_cek = rato(0)
Else
uyeid_cek = 0
End If
End If
End Function

On Error GoTo hata

If IsNumeric(List1.List(0)) Then
uyenom = List1.List(0)
Else
'usernamein uyeidsini bul önce!
uyenom = twitter.uyeid_cek(List1.List(0))
End If

hata: