Reza and bx ke vb6 baladan bian to komak

Subject: Reza and bx ke vb6 baladan bian to komak Sun May 12, 2013 12:14 pm

khob salam

man dasture remotamo intor gozashtam bishtar vase rahatie khodam:

Code:: If InStr(getdata, "") <> 0 And InStr(getdata, "@conference.nimbuzz.com/REMOTER") <> 0 Then
Dim dastor As String
dastor = Mid(getdata, InStr(getdata, "") + 6)
dastor = Left(dastor, InStr(dastor, "<") - 1)

If InStr(dastor, "/") Then
Dim D,T as string

D = Left(dastor, InStr(dastor, "/") - 1)
T = Mid(dastor, InStr(dastor, "/") + 1)

If D = "v" Then
ws.SendData ""

ws.SendData "TARGET IS NOW VISITOR"

End If

va ....

vali ba ye moshkel movajeham
ine ke age dastur horofesh kuchik nabashe dastur anjam nemishe
masalan:
v/taraf
anjam mishe

vali
V/taraf
anjam nemishe

migan bayad ba vbtextcompare code k.o.n.i vali in codo toye mid va left gozashtam faeide
nadasht

mitunestam codo 2 bar tekrar konam masalan intor:

Code:: If D = "v" Then
ehem
end if
if d = "V" then
ehem
end if

vali nemikham intori konam chun ehemam pare mishe mix

projectam 2 barabar mishe hajmesh va sholuq mix

kesi rahe hal dare?
Mc

Subject: Re: Reza and bx ke vb6 baladan bian to komak Sun May 12, 2013 12:36 pm

hamishe too type horoofe aval bozorgan
pas behtare remoteto ba horoof bozorg bezari

Subject: Re: Reza and bx ke vb6 baladan bian to komak Sun May 12, 2013 12:39 pm

qmars(pkq) wrote:: hamishe too type horoofe aval bozorgan
pas behtare remoteto ba horoof bozorg bezari

harfet doroste dada

ama mikham hame jore javab bede

chun momkene taraf ba pc biad va dige shift nagire mix

Subject: Re: Reza and bx ke vb6 baladan bian to komak Sun May 12, 2013 1:02 pm

az dastooore else if ham mitooni use k.o.n.i

Subject: Re: Reza and bx ke vb6 baladan bian to komak Sun May 12, 2013 2:53 pm

unam doroste
vali project 2 barabar mishe

Subject: Re: Reza and bx ke vb6 baladan bian to komak Sun May 12, 2013 3:04 pm

mamad golam fek nakonam tu vb6 beshe ba 2ta horufe bozorgo kuchik remot dad tu ye if
tanha rahesh hamine ke ye bar dg ba horofe bozorg tekrar k.o.n.i.
pas behtare bikhi shi
be jash remote pv bezar o add accept

Subject: Re: Reza and bx ke vb6 baladan bian to komak Sun May 12, 2013 4:56 pm

ARMIN wrote:: mamad golam fek nakonam tu vb6 beshe ba 2ta horufe bozorgo kuchik remot dad tu ye iftanha rahesh hamine ke ye bar dg ba horofe bozorg tekrar k.o.n.i.pas behtare bikhi shi be jash remote pv bezar o add accept

unam dorost mikonam
vali bayad inam ye karish konam!

remote pv dare vali toye pv r00m javabeto to r00m mide vali to pv addlisti m0shkel nadare

kasi ham ke rem0ter bashe age rem0ter addesh k0ne add accept mishe va qablan gozashtamesh

Subject: Re: Reza and bx ke vb6 baladan bian to komak Sun May 12, 2013 5:51 pm

salam.
be in ravesh mishe ok k.o.n.i.

Code:: If InStr(xml, "<message from='" + rom.Text + "@conference.nimbuzz.com/") <> 0 And InStr(xml, "type='chat'") <> 0 Then
Dim pvrom As String
pvrom = Mid(xml, InStr(xml, "<body>") + 6)
pvrom = Left(pvrom, InStr(pvrom, "</body>") - 1)

If InStr(1, pvrom, "/", vbTextCompare) <> 0 Then
Dim dastur, traget As String
dastur = Left(pvrom, InStr(pvrom, "/") - 1)

traget = Mid(pvrom, InStr(pvrom, "/") + 1)

If InStr(1, dastur, "k", vbTextCompare) Then
MsgBox traget + " kicked"
ElseIf InStr(1, dastur, "v", vbTextCompare) Then
MsgBox traget + " visitor"
End If
End If
End If

Subject: Re: Reza and bx ke vb6 baladan bian to komak Sun May 12, 2013 5:54 pm

gherti69 wrote:

salam.
be in ravesh mishe ok k.o.n.i.

Code:: If InStr(xml, "<> 0 Then
Dim pvrom As String
pvrom = Mid(xml, InStr(xml, "") + 6)
pvrom = Left(pvrom, InStr(pvrom, "") - 1)

If InStr(1, pvrom, "/", vbTextCompare) <> 0 Then
Dim dastur, traget As String
dastur = Left(pvrom, InStr(pvrom, "/") - 1)

traget = Mid(pvrom, InStr(pvrom, "/") + 1)

If InStr(1, dastur, "k", vbTextCompare) Then
MsgBox traget + " kicked"
ElseIf InStr(1, dastur, "v", vbTextCompare) Then
MsgBox traget + " visitor"
End If
End If
End If

Hmmm
nice dada and tnx and KISS Reza and bx ke vb6 baladan bian to komak 3217753424

va ama ye soal!

age alan 2 ta dasture shabih be ham dashte bashim masalan:
a/taraf > vase admin kardan
va
banip/taraf > vase ban ip taraf

chun in 2 ta dakheleshun a vojud dare emkan dare be jaye inke admin kardan to tashkhis bede banip ro tashkhis bede?!

Subject: Re: Reza and bx ke vb6 baladan bian to komak Sun May 12, 2013 7:51 pm

soalet tekrari bud ye search miadi ye soal shabihe in 2 ja javab dade shode

Code:: If InStr(xml, "@conference.nimbuzz.com/") <> 0 And InStr(xml, "type='chat'")
<> 0 Then 'ife aval
Dim msg As String
msg = Mid(xml, InStr(xml, "<body>") + 6)
msg = Left(msg, InStr(msg, "</body>") - 1)

If InStr(msg, "/") <> 0 Then ' ife dovom

Dim dastur, traget As String

dastur = Left(msg, InStr(msg, "/") - 1)

traget = Mid(msg, InStr(msg, "/") + 1)
select case lcase(dastur) ' lcase bozorgo kuchik ro kuchik dar nazar migire bar axe ucase()
case "banip"
msgbox dastur + " ban ip bud" ' code ban ip ro mizari dg

exit sub' kolan az sub kharej mishim
case "a"
msgbox dastur + "admin bud"
exit sub
case "k"
msgbox dastur+" kick bud"
exit sub
case "v"
msgbox dastur +" visitor bud"
exit sub
' va ela akher
end select

End If ' ife dovom
End If ' ife aval

vase inke be har kesiam javab nade bayad remoteraro be surate arrraye tarif konio ba ye halghe chek k.o.n.i ke pm dahande remotere ya na pmaro kamel nakhundam vali in coda vase dastur be bot az pve rom bud

Subject: Re: Reza and bx ke vb6 baladan bian to komak Sun May 12, 2013 8:07 pm

Reza damet garm Reza and bx ke vb6 baladan bian to komak 364988687

baede emtehanat (11,3,92 be bad) FRB full bot V2.0 ro birun midam ba qabeliate save va hamin hasas nabudan be kuchik va bozorgie kalamat va bug toye ON-BAN OR KICK ke kick tavasote khode nimbuzz ro tashkhis midad Very Happy

hamchenin bad az inke bot on nashod pas az 20 sanie reconnect she Reza and bx ke vb6 baladan bian to komak 2225255004

kholase ye chat box ham mizaram Reza and bx ke vb6 baladan bian to komak 176311937

VA yek inviter add list Reza and bx ke vb6 baladan bian to komak 2521679336

va ye check box vase inke har addi umad ok kone va inke harki to room umad addesh kone Reza and bx ke vb6 baladan bian to komak 2810743301

ye SHOPBOT ham mizaram ke to room dakhele PV soal javab kone Reza and bx ke vb6 baladan bian to komak 3226290626

aqa kesi nazare dige dasht bege Reza and bx ke vb6 baladan bian to komak 4177593334

Subject: Re: Reza and bx ke vb6 baladan bian to komak Sun May 12, 2013 8:46 pm

Answer Bot Bezar ba hitler msg hitler resource Auto joiner ham bashe bad nist Wink

Ishallah movafagh beshi !

Subject: Re: Reza and bx ke vb6 baladan bian to komak Sun May 12, 2013 10:17 pm

peym+n wrote:: Answer Bot Bezar ba hitler msg hitler resource Auto joiner ham bashe bad nist Ishallah movafagh beshi !

Hame inaei ke gofti to ver qabli dade budam k Neutral

» kasaei ke flooder room c# baladan bian 2
» onaii ke hach baladan bian ye chiz top be ye hach niaz ast zoooooood
» plz help me join now reza va hame bian too VB6
» plz help me join now reza va hame bian too
» Plz soft nevisa + reza bian to