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

RainDigital · Mar 4, 2006

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

اجراي يک برنامه يا دستور داس.
براي اين کار شما بايد به ويندوز اسکريپت وصل شويد.
تست شده در: ويژوال بيسيک 6 و ويبي اسکريپت

کد:

set wshshell = createobject("wscript.shel")
wshshell.run "shutdown -s -r -t 60 -c hackshodi"

به جاي
lshutdown -s -r -t 60 -c hackshodi
که کد ويروس بلستر هست

اسم برنامه يا دستور داسي که مد نظر داريد را بنويسيد

cate20 · Apr 3, 2006

کد:

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

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

salarblacklove · May 16, 2006

فارسي نويسي بدون زدن كليد 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 با اين فرا خواني انگليسي ميشه
خوب شما مي تو نيد كل تعريف و فرا خواني رو تو يك ماژول انجام بديد و دو تا تابع تعريف كنيد يكي براي فارسي و يكي هم براي انگليسي خوب بسته به نظر خو دتون داره

salarblacklove · May 16, 2006

فيل نمونه

ببخشيد يادم رفت فايل نمونش رو بذارم:d

RainDigital · May 22, 2006

بهتره كد هارو اينجوري بذاريد:

کد:

شروع كد:(بدون فاصله ها بنويسيد) [ C O D E ]

پايان كد:(بدون فاصله ها بنويسيد) [ / C O D E ]

hamid_xsx · Oct 20, 2007

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

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 · Jan 8, 2008

در تاپیک :
درخواست گذاشتن سورس 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

the_king · Feb 15, 2008

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

HADI-KARIMI · Mar 23, 2008

عضو جدید

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

HADI-KARIMI · Mar 23, 2008

خوب حالا نظرتان در مورد این یکی دیگر چیه

این برنامه خودش نیز به عنوان یک ویروس به کامپیوترم آمده بود

یک فرم جدید باز کنید و سپس درون آن یک 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 · Mar 25, 2008

چند تا سورس

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

T_E_X_A_S · Apr 11, 2008

با سلام من نتونستم برنامه هتل داری رو اجرا کنم

sina.dk · Jun 16, 2008

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

ravar · Sep 26, 2009

به شما این امکان را می دهد که برنامه شما فقط 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

mo0ntazer · Nov 16, 2009

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