Source Code Vb6 Old Flood Nimbuzz Rooms

ENGLISH:
10 ids Old Flood Rooms
Download and EnjoY Coding
CominG Soon More Sources EnjoY

FARSI:
ba in source codai ke baratun mitunid be zabane vb flooderi be shekli ke dar bala baratun gharar dadam be esme khodetun besazid va lezat bebarid

DOWNLOAD FROM PICOFILE:
[You must be registered and logged in to see this link.]

DOWNLOAD FROM 2SHARED:
[You must be registered and logged in to see this link.]

thanks bro

yea yea yea
damet hot

mc hala kardam

ممنون داداش عالي بود اگه تونستي يه اسپمر برام بساز فقط ساده باشه بشه پيامو به روم فرستاد لوگين بشه و غيره ممنون ميشم فارسي باشه با سورس


بفرست به

[You must be registered and logged in to see this link.]

ممنون ميشم داداش

Damet Garm Dadash Faqat ye CHiz Nimbuzz Recurse Male Chie?
Khali Bahale

emo.shahab wrote:Damet Garm Dadash Faqat ye CHiz Nimbuzz Recurse Male Chie?
Khali Bahale

daghigh nemidunam vali midunam kolan rabti be in source codeaye mamul ke mishnasim nadare. age etelaatiyam be dast avordam hatman haminja tozih midam

in sourse dast kari shode age deqat konin dakhele sourse chand ta cammand hast vali rooye form on cammand ha nistan in neshoon mishe ke cammand haye rooye form pak shode in cammadn ha winsuck roo mibandan dakhele sourse neveshte ye nega konin motavaje mishin
shayad chizye dg ham az sourse pak shode age kasi az sourse barname sadar miare bebine sourse kamele chizi kam nadare ye ok bede

Man ye sourse ye barnamey mikham ke bahash ye Id online konam fek nakonam kari dashte bashe vali ma har kari mikonam nemishe age Kasi balade bezare ye toozih kochik ham bede


dametom garm

emo.shahab wrote:Man ye sourse ye barnamey mikham ke bahash ye Id online konam fek nakonam kari dashte bashe vali ma har kari mikonam nemishe age Kasi balade bezare ye toozih kochik ham bede


dametom garm

un source code bala marbut be khode site isoo bud baratun gozashtam age ham naghes bude dige sorry man aslan test nakardam chon cheshmamam ab nemikhord

vase soale 2vometam

dakhele mohite vb6 in abzararo aval az hame be forme barnamat ezafe kon;

3ta Label
3ta Textbox
2ta Button
1 Winsock

khob hala nameshuno be ina ke migam taghir bede

textbox1= txtUser
Textbox2= txtPassword
Textbox3= txtResource
va dakhele propertise winsock remote host 'openfire.nimbuzz.com' va remote port '5222' gharar bede

hala form barnamatam bayad be shekle zir bashe:



khob hala varede ghesmate code nevisi sho va code haye ziro vared kon:

Code:


Private Sub Command1_Click()
Winsock1.Close
Winsock1.Connect
End Sub

Private Sub Command2_Click()
Winsock1.Close

End Sub

Private Sub Winsock1_Connect()
Winsock1.SendData "<stream:stream xmlns='jabber:client' to='nimbuzz.com' version='1.0' xmlns:stream='http://etherx.jabber.org/streams' xml:lang='ar' >"
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim Getdata As String
Winsock1.Getdata Getdata
Getdata = Replace(Getdata, """", "'")
If InStr(Getdata, "stream:features><starttls xmlns='urn:ietf:params:xml:ns:xmpp-tls'/><compression xmlns='http://jabber.org/features/compress'><method>zlib</method></compression><mechanisms xmlns='urn:ietf:params:xml:ns:xmpp-sasl'><mechanism>PLAIN</mechanism><mechanism>DIGEST-MD5</mechanism></mechanisms><register xmlns='http://jabber.org/features/iq-register'/></stream:features>") Then
Winsock1.SendData "<iq type='set' xml:lang='en' id='NLgn' to='nimbuzz.com'><query xmlns='jabber:iq:auth'><username>" & txtUser.Text & "</username><password>" & txtPassword.Text & "</password><resource>" & txtResource.Text & "</resource></query></iq>"
End If

''''' Events
If InStr(Getdata, "<iq type='result' from='nimbuzz.com' xml:lang='en' id='NLgn'/>") Then
MsgBox " Login Success "
Winsock1.SendData "<presence><c node='http://exodus.jabberstudio.org/caps' ver='0.9.1.0' xmlns='http://jabber.org/protocol/caps'/><priority>1</priority></presence>"

End If

If InStr(Getdata, "<iq type='error' from='nimbuzz.com' xml:lang='en' id='NLgn'><query xmlns='jabber:iq:auth'><username>" & txtUser.Text & "</username><password>" & txtPassword.Text & "</password><resource>" & txtResource.Text & "</resource></query><error code='401' type='auth'><not-authorized xmlns='urn:ietf:params:xml:ns:xmpp-stanzas'/></error></iq>") Then
MsgBox " Wrong password "
End If

End Sub


hala barname ro ejra kon va natije ro bebin


man ye chiziyam behet begam ke az man mishnavi tu forumha donbale source kamel nabash makhsusan in forumaye nimbuzz chon hame khodeshun zahmat keshidan ta yad gereftano cod ro neveshtan va dorost nemidunan ke free share konan man khodamam .net kar mikonam aslanam be vb6 alagheyi nadaram u ham age beri donbale barnaenevisi .net mituni zud mafahimesho yad begiri zamane ziyadiyam nemibare yadgirish makhsusan C# ke vaghean ham zabane ghodratmandiye ham yadgirish kheyli shirine va man tosiye mikonam hatman bejaye inke donbale source code amade bashid khodetun code benevisid masalan tu jalase haye aval ke halgheharo yad migirid mitunid hade aghal ye password list maker sade benevisid

movafagh bashid

dadash ye donya mamno ma faqat haminooo motavaje nemishooodam valii rahtamitt khali behem komak kard dg midonam chikar koam
damet garm dadash
ala donbale yadgiri c# hastam ye serii maqale gereftam mikham yad begiraam
bazam manon

rastiiiii resource yani chi inja roo bayad chii bezani aslan kare asli resource chie???

Thanks

Slm Dobare

bache ha man ye barname neveshtam ba vb6 ke 3 ta id floooder roo on kone ba hamashon dakhele ye room flood bezane vali kar nakrd tamame moshkelsh ham gereftam vali nemidonam chera kar nemikone
id ha on mishan(be lotf P3rsianc4T)
vali id ha varede room nemishan hame chiizam doroste nemidoam chera
in Link source hast ye nega bendazin bebinin moshkelesh chiiie too haminja begin mc az rahnemaiiton

Code:


Private Sub Timer1_Timer()
On Error Resume Next
Dim a As String
a = "<message xmlns='jabber:client' to='" & Room.Text & "@conference.nimbuzz.com/" & Text8.Text & "' type='chat' id='285'><body>www.xsukax.Com Flood MAde BY o_its.soul_o</body><active xmlns='http://jabber.org/protocol/chatstates' /><x xmlns='jabber:x:event'><composing /></x><request xmlns='urn:xmpp:receipts' /><thread>ppFCepdObfvhPcqgTLZdjJpYmYjLEZgI</thread></message>"
Winsock1.SendData a
Timer1.Enabled = False
Timer2.Enabled = True
End Sub


Private Sub Timer2_Timer()
On Error Resume Next
Dim a As String
a = "<message xmlns='jabber:client' to='" & Room.Text & "@conference.nimbuzz.com/" & Text8.Text & "' type='chat' id='285'><body>www.xsukax.Com Flood MAde BY o_its.soul_o</body><active xmlns='http://jabber.org/protocol/chatstates' /><x xmlns='jabber:x:event'><composing /></x><request xmlns='urn:xmpp:receipts' /><thread>ppFCepdObfvhPcqgTLZdjJpYmYjLEZgI</thread></message>"
Winsock2.SendData a
Timer2.Enabled = False
Timer3.Enabled = True
End Sub



Private Sub Timer3_Timer()
On Error Resume Next
Dim a As String
a = "<message xmlns='jabber:client' to='" & Room.Text & "@conference.nimbuzz.com/" & Text8.Text & "' type='chat' id='285'><body>www.xsukax.Com Flood MAde BY o_its.soul_o</body><active xmlns='http://jabber.org/protocol/chatstates' /><x xmlns='jabber:x:event'><composing /></x><request xmlns='urn:xmpp:receipts' /><thread>ppFCepdObfvhPcqgTLZdjJpYmYjLEZgI</thread></message>"
Winsock3.SendData a
Timer3.Enabled = False
End Sub





slm bache ha
chera kasi nist javab manoo bede
ye sooal dashtam man barname haye hack nimbuzz onaye ke ba c# neveshte shode bala nemiad Erorr mide ye net frmework4 ham nasb kardam bazam nashod vali bazi az barname ha ke nemiomad bala omad
ina Erorresh hast ye rahnamaii konin mamon misham

slm bache ha
chera kasi nist javab manoo bede
ye sooal dashtam man barname haye hack nimbuzz onaye ke ba c# neveshte shode bala nemiad Erorr mide ye net frmework4 ham nasb kardam bazam nashod vali bazi az barname ha ke nemiomad bala omad
ina LINK Erorresh hast ye rahnamaii konin mamon misham

moshkel az net framworkete