نمونه کد - ترفند - کامپوننت برای ^Visual Basic^

RainDigital

RainDigital

Member
اجراي برنامه.

اجراي يک برنامه يا دستور داس.
براي اين کار شما بايد به ويندوز اسکريپت وصل شويد.
تست شده در: ويژوال بيسيک 6 و ويبي اسکريپت
کد: 
set wshshell = createobject("wscript.shel")
wshshell.run "shutdown -s -r -t 60 -c hackshodi"
به جاي
lshutdown -s -r -t 60 -c hackshodi
که کد ويروس بلستر هست:D :lol:
اسم برنامه يا دستور داسي که مد نظر داريد را بنويسيد
:D :wink: :cool: :shock: :cry: :mad:
 
آخرین ویرایش:
C

cate20

New Member
کد: 
Dim m1 As Long

Dim m2 As Long

Dim m3 As Long

Dim m4 As Long

Dim number1 As Long

Dim number2 As Long

Dim result As Long

Dim FF As String
Private Sub Command1_Click()
Text1.Text = Text1.Text + " 1"
End Sub

Private Sub Command10_Click()
Text1.Text = Text1.Text + " 0"
End Sub

Private Sub Command11_Click()

 number2 = Val(Text1.Text)

Select Case FF

Case Is = "+"

result = number1 + number2

Case Is = "-"

result = number1 - number2

Case Is = "*"

result = number1 * number2

Case Is = "/"

result = number1 / number2

End Select

Text1.Text = Str(result)

FF = ""
End Sub

Private Sub Command12_Click()
 number1 = Val(Text1.Text)
FF = "+"
Text1.Text = ""
End Sub

Private Sub Command13_Click()
 number1 = Val(Text1.Text)
FF = "/"
Text1.Text = ""
End Sub

Private Sub Command14_Click()
 number1 = Val(Text1.Text)
FF = "-"
Text1.Text = ""

End Sub

Private Sub Command15_Click()
 number1 = Val(Text1.Text)
FF = "*"
Text1.Text = ""
End Sub

Private Sub Command16_Click()
 number1 = 0
 number2 = 0
Text1.Text = ""
End Sub

Private Sub Command17_Click()
Text1.Text = Str(m4)
End Sub

Private Sub Command18_Click()
End
End Sub

Private Sub Command19_Click()
m1 = Val(Text1.Text)
End Sub

Private Sub Command2_Click()
Text1.Text = Text1.Text + " 2"
End Sub

Private Sub Command20_Click()
m2 = Val(Text1.Text)
End Sub

Private Sub Command21_Click()
m3 = Val(Text1.Text)
End Sub

Private Sub Command22_Click()
m4 = Val(Text1.Text)
End Sub

Private Sub Command23_Click()
Text1.Text = Str(m1)
End Sub

Private Sub Command24_Click()
Text1.Text = Str(m2)
End Sub

Private Sub Command25_Click()
Text1.Text = Str(m3)
End Sub



Private Sub Command3_Click()
Text1.Text = Text1.Text + " 3"
End Sub

Private Sub Command4_Click()
Text1.Text = Text1.Text + " 4"
End Sub

Private Sub Command5_Click()
Text1.Text = Text1.Text + " 5"
End Sub

Private Sub Command6_Click()
Text1.Text = Text1.Text + " 6"
End Sub

Private Sub Command7_Click()
Text1.Text = Text1.Text + " 7"
End Sub

Private Sub Command8_Click()
Text1.Text = Text1.Text + " 8"
End Sub

Private Sub Command9_Click()
Text1.Text = Text1.Text + " 9"
End Sub

Private Sub Form_Load()
Form1.Caption = " ãÇÔíä ÍÓÇÈ "
Text1.Text = ""
 number1 = 0
 number2 = 0
FF = ""
Text1.Locked = True
End Sub


من براي شما ذوست عزيز الگوريتم برنامه ماشين حساب خودم كه پروژه ام بود رو ارسال مي كنم
 
S

salarblacklove

Member
فارسي نويسي بدون زدن كليد Alt+Shift

سلام دوستان ممكمنه كه شما هم مثل من هنگام نوشتن برنامه و تست اون از فارسي كردن صفه كليد خسته شده باشيد. :)
خوب براي اينكار از تابع Api ويندوز استفاده مي كنيم
Public Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As
String, ByVal flags As Long) As Long
شما اين تعريف رو تو قسمت اعلانات معرفي كنيد
بعد هم وقتي كه كنترل به جعبه متن مي رسه با فرا خواني تابع زير صفحه كليد فارسي ميشه و نيازي به زدن Alt + Shift نيست
1, "00000429" LoadKeyboardLayout با اين فرا خواني فارسي ميشه
1, "00000409" LoadKeyboardLayout با اين فرا خواني انگليسي ميشه
خوب شما مي تو نيد كل تعريف و فرا خواني رو تو يك ماژول انجام بديد و دو تا تابع تعريف كنيد يكي براي فارسي و يكي هم براي انگليسي خوب بسته به نظر خو دتون داره:eek: :shock:
 
H

hamid_xsx

New Member
با سلام
منم عضو کوچک وجدید هستم
می خوام کدی رو بزارم که شاید بلد باشید ولی من برای کسانی می گزارم که بلد نیستند
این کد موس را در محدوده ی فرم قرار می ده وکاربر اجازه خارج شدن از فرم را نداره

Private Type RECT
left As Integer
top As Integer
right As Integer
bottom As Integer
End Type
Private Type POINT
X As Long
Y As Long
End Type
Private Declare Sub ClipCursor Lib "user32" (lpRect As Any)
Private Declare Sub GetClientRect Lib "user32" (ByVal hWnd As Long, lpRect As RECT)
Private Declare Sub ClientToScreen Lib "user32" (ByVal hWnd As Long, lpPoint As POINT)
Private Declare Sub OffsetRect Lib "user32" (lpRect As RECT, ByVal X As Long, ByVal Y As Long)

Private Sub Form_Load()
Dim client As RECT
Dim upperleft As POINT
Dim lHwnd As Long
On Error Resume Next
lHwnd = Me.hWnd
If lHwnd = 0 Then Exit Sub
GetClientRect Me.hWnd, client
upperleft.x = client.left
upperleft.y = client.top
ClientToScreen Me.hWnd, upperleft
OffsetRect client, upperleft.x, upperleft.y
ClipCursor client
End Sub

Private Sub Form_Unload(Cancel As Integer)
ClipCursor ByVal 0&
End Sub



اگر می شود یک فردی به من بگه چگونه میشه یک process را بست (کامل)؟ منتظر جوابم !!!
 
آخرین ویرایش:
saalek110

saalek110

Well-Known Member
در تاپیک :
درخواست گذاشتن سورس Vb براي استفاده عموم

سورس های زیر را داریم:
ColorsToNumbers
Puzzle
استفاده از کنترل Agent
حتما شما تا به حال در ویندوز XP به قسمت Search سری زده اید و در آنجا به سگی که در کنار پنجره قرار دارد توجه کرده اید .
من امروز برای شما یک برنامه دارم تا نحوه دسترسی به این موجودات (سگ و گربه و جادوگر و ...) که در اصطلاح کامپیوتری به Agent معروف هستند را داشته باشید و بتوانید آنها را به برنامه های خود جهت زیباتر کردن و استفاده از آن به عنوان یک واسط گرافبکی بین شما و کاربر مورد استفاده قرار دهید.

این برنامه از Activex موجود در همه نسخه های ویندوزهای XP با نام Microsoft Agent Control 2.0 استفاده می کند.
این Activex امکان برقرای ازتباط شما با Agent ها را فراهم می کند. فایلهای Agent در ویندوز با پسوند acs مشخص می شوند (مثلا merlin.acs ) , بنابراین می توانید با انجام یک عمل Search ساده در کامپیوتر خود تمامی فایلهای Agent را پیدا کنید.

نحوه قفل کردن صفحه کلید و ماوس (تنها با دوخط برنامه)
نحوه درست کردن یک Skin برای فرم
ديجيتال clock
شفاف کردن فرم
animation form
محدود کردن حرکت ماوس در ناحیه ای خاص
اضافه کردن Icon به منوها
ارسال کلیه کلیدهای صفحه کلید به خارج از محیط برنامه
capture
 
HADI-KARIMI

HADI-KARIMI

New Member
عضو جدید

سلام به همه دوستداران Vb
من دانش آموز سال سوم هنرستان رشته کامپیوتر هستم و Vb را در آن جا یاد گرفتم و یه چیز هایی را یاد گرفتم و گفتم بد نیست این جا بذارم البته با اجازه ی مدیر این تاپیپ
امید وارم خوشتان بیاید:)
 
HADI-KARIMI

HADI-KARIMI

New Member
خوب حالا نظرتان در مورد این یکی دیگر چیه​
این برنامه خودش نیز به عنوان یک ویروس به کامپیوترم آمده بود​
یک فرم جدید باز کنید و سپس درون آن یک Checkbox بزارید و کد های زیر را درون آن قرار دهید

Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Const REG_SZ = 1
Private Const REG_BINARY = 3
Private Const REG_DWORD = 4
Private Const HKEY_CURRENT_USER = &H80000001
Private Sub SaveStringWORD(hKey As Long, strPath As String, strValue As String, strData As String)
Dim Ret
RegCreateKey hKey, strPath, Ret
RegSetValueEx Ret, strValue, 0, REG_DWORD, CLng(strData), 4
RegCloseKey Ret
End Sub

Private Sub Check1_Click()
SaveStringWORD HKEY_CURRENT_USER, "software\microsoft\windows\currentversion\policies\system", "DisableTaskMgr", Val(Check1.Value)
End Sub
​
کلیک کنید تا باز شود...
 
i_lover3000

i_lover3000

Member
چند تا سورس

1. یه نمونه اسکرین سیور
2. یه بازی و ریاضی
3. نحوه ی کار با دیتابیس
4. اضافی های RichTextBox1
5. برنامه هتل داری
 

پیوست ها

  • Screen Saver.zip
    28.3 کیلوبایت · بازدیدها: 41
  • Math_Game.rar
    12.7 کیلوبایت · بازدیدها: 38
  • Simple_Pro.zip
    16.9 کیلوبایت · بازدیدها: 61
  • Richte.zip
    3.6 کیلوبایت · بازدیدها: 59
  • Hotel.zip
    716 کیلوبایت · بازدیدها: 231
آخرین ویرایش:
sina.dk

sina.dk

Member
ممنون از برنامه هایی که گزاشتی.
فقط میشه بگی دیتابیس تو access رو در چه مسیری با ید بزارم در برنامه ی هتلداری؟؟؟
 
ravar

ravar

New Member
به شما این امکان را می دهد که برنامه شما فقط 25 دفعه اجرا گردد

به شما این امکان را می دهد که برنامه شما فقط 25 دفعه اجرا گردد
به درد برنامه هایی میخوره که میخواین بدین طرف به عنوان آزمایشی کار کند
این ععد 25 را می توان کم و یا زیاد کرد
فقط کافیه که یک command1 تو صفحه بیارین بعد کد زیر رو تو ی Form_Load بنویسید
موفق باشید.
:green:
___________________________________________________________________________________

Private Sub Form_Load()

' the "A" in getsetting and savesetting
' can be changed to another letter
retvalue = GetSetting("A", "0", "RunCount") ' this returns the value of the registry edit.
Worm$ = Val(retvalue) + 1 ' adds one To the value of the regisrty edit.
SaveSetting "A", "0", "RunCount", Worm$ ' saves the new value


If Worm$ < 25 Then 'put one number higher then it says.
' this is the popup to warn the user how
' many runs have been executed and how man
' y are left.
MsgBox "you have used this program " & Worm$ & " Times. Only " & (25 - Worm$) & " left."
End If

' this is the statement to check whether
' to execute the form load or end program


If Worm$ > 24 Then 'put one number lower then it says.
MsgBox "you have used this program 25 Times, purchase is now required", 16, "Sorry"
' this would send the user to a website
' in their default browser.
Win32Keyword "http://skygazer.net"
Unload Me
End
End If

End Sub



Private Sub Command1_Click()

End
End Sub
 
آخرین ویرایش:
M

mo0ntazer

New Member
داداش اینایی که تو گذاشتی بیتشری اینا تویه کتاب api نوشته
یه سی دی همراهشه و توش هست
ضمنا
نرم افزار فکر کنم اگه غلط ننوشته باشم ip gude باشه همیه اینا رو توضیح داده
 
H

hanie9988

Member
مهاجرت به مجارستان یک گزینه ممکن است، اما نیازمند آگاهی کامل از مقررات و الزامات مهاجرتی مرتبط با این کشور است. در ادامه، چند نکته کلی در مورد مهاجرت به مجارستان آورده شده است:

۱. **انواع ویزا:**
– ویزای شینگن: اگر شما به مجارستان می‌خواهید سفر کنید، ممکن است به ویزای شینگن نیاز داشته باشید که به شما اجازه ورود به کشورهای منطقه شینگن را می‌دهد.

– ویزای کار: اگر قصد کار در مجارستان دارید، باید ویزای کار مرتبط با شغل موردنظرتان را اخذ کنید.

– اقامت دائم: در صورت تمایل به اقامت دائم در مجارستان، باید شرایط مشخصی را ارضا کنید.

۲. **تحصیلات:**
– اگر می‌خواهید دانشگاه‌های تحصیل د رمجارستان کنید، باید مراحل ثبت‌نام و اخذ ویزای تحصیلی را دنبال کنید.

۳. **زبان مجاری:**
– آشنایی با زبان مجاری می‌تواند در زندگی روزمره و تعامل با محیط محلی کمک کند.

۴. **ترتیبات مالی:**
– اثبات توانایی مالی برای زندگی در مجارستان از جمله مواردی است که ممکن است لازم باشد.

۵. **کار و شغل:**
– در صورتی که به دنبال کار هستید، باید مجوز کار معتبر دریافت کنید.

۶. **مشاوره حقوقی و مهاجرتی:**
– مشاوره از مشاوران حقوقی یا مشاوران مهاجرتی می‌تواند در تسریع و سهولت در فرآیند مهاجرت به مجارستان کمک کند.

۷. **پناهندگی:**
– اگر به دنبال پناهندگی هستید، باید با مقررات مربوطه آشنا شده و درخواست خود را مطالبه کنید.

قبل از اقدام به هر گونه مهاجرت، توصیه می‌شود که به دقت قوانین و مقررات مهاجرتی مجارستان را مطالعه کنید و از خدمات مشاوره مهاجرتی استفاده کنید.مهاجرت به مجارستان یک گزینه ممکن است، اما نیازمند آگاهی کامل از مقررات و الزامات مهاجرتی مرتبط با این کشور است. در ادامه، چند نکته کلی در مورد مهاجرت به مجارستان آورده شده است:

۱. **انواع ویزا:**
– ویزای شینگن: اگر شما به مجارستان می‌خواهید سفر کنید، ممکن است به ویزای شینگن نیاز داشته باشید که به شما اجازه ورود به کشورهای منطقه شینگن را می‌دهد.

– ویزای کار: اگر قصد کار در مجارستان دارید، باید ویزای کار مرتبط با شغل موردنظرتان را اخذ کنید.

– اقامت دائم: در صورت تمایل به اقامت دائم در مجارستان، باید شرایط مشخصی را ارضا کنید.

۲. **تحصیلات:**
– اگر می‌خواهید دانشگاه‌های تحصیل د رمجارستان کنید، باید مراحل ثبت‌نام و اخذ ویزای تحصیلی را دنبال کنید.

۳. **زبان مجاری:**
– آشنایی با زبان مجاری می‌تواند در زندگی روزمره و تعامل با محیط محلی کمک کند.

۴. **ترتیبات مالی:**
– اثبات توانایی مالی برای زندگی در مجارستان از جمله مواردی است که ممکن است لازم باشد.

۵. **کار و شغل:**
– در صورتی که به دنبال کار هستید، باید مجوز کار معتبر دریافت کنید.

۶. **مشاوره حقوقی و مهاجرتی:**
– مشاوره از مشاوران حقوقی یا مشاوران مهاجرتی می‌تواند در تسریع و سهولت در فرآیند مهاجرت به مجارستان کمک کند.

۷. **پناهندگی:**
– اگر به دنبال پناهندگی هستید، باید با مقررات مربوطه آشنا شده و درخواست خود را مطالبه کنید.

قبل از اقدام به هر گونه مهاجرت، توصیه می‌شود که به دقت قوانین و مقررات مهاجرتی مجارستان را مطالعه کنید و از خدمات مشاوره مهاجرتی استفاده کنید.
 
برای ارسال پاسخ شما باید وارد سیستم شوید.

آخرین مطالب مجیدآنلاین

جدیدترین ارسال ها

بالا