soal baraye code namayeshe soale admin nimbuzz (for vb6)

salam bax . dosta man ye codi vase namayeshe soale admin daram vali ye jash ro vaqta mizanam connect irad migire . plz age kasi salemesh ro dare bezare kheili mamnon . Laughing

inam code khodam :

Code:: Dim user_name As String
If (InStr(mahdi, "'groupchat'")) Then
If (InStr(mahdi, "</body>")) Then
If (InStr(mahdi, "to='")) Then
If (InStr(mahdi, "Enter the right answer to start chatting")) Then
Dim first As Integer
Dim last As Integer
first = InStrRev(mahdi, "<body>Enter the right answer to start chatting.") + 47
last = InStr(first, mahdi, "</body>")
If (last > first) Then
admin = Mid(mahdi, first, last - first)
Label2 = " " + admin + ""
End If
End If
End If
End If
End If

ke in qesmat ro mige label not found !

Code:: admin = Mid(mahdi, first, last - first)
Label2 = " " + admin + ""

Code:: Dim admin As String

hame ja codo edit kardi qalatesh kardi
macoud ha shode mahdi
user_name shode admin
ama user_name aval ro nakardi admin

chera in hame codaro alaki mipichuni akhe
mikhay pm admin ro begiri?

Quote :: Dim admin As String
If InStr(mahdi, "@conference.nimbuzz.com/admin'")<> 0 and instr(mahdi, "type='groupchat')<> 0 Then
admin=mid(mahdi,instr(mahdi,"")+6) 'chun 6 harfe ma admin ro 6 harf az be bad migirm
admin=left(admin,instr(admin,"")-1) ' ye harf az Label2 = admin
end if

» soal baraye login chanta id ba vb6
» help for code chat box room nimbuzz (for vb6)
» want code after join room to break admin question??
» code safheye vorodi freebuzz baraye weblog
» PYTHON NIMBUZZ LOGIN CODE ?