Execute کردن برنامه های ساخته شده...

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

---

هر برنامه نویسی پس از نوشتن برنامه در IDE مخصوص به خودش مثل VB و پس از Debug کردن اون نیاز داره که برنامش تبدیل به یک برنامه مستقل و احتمالاً دارای فایل EXE بشه که با انتقال دادن آن فایل به کامپیوتر دیگران بدون نصب VB عمل کنه.برای اینکار مراحل زیر رو دنبال کنید :

1.VB را باز کنید.

2.پروژه مورد نظرتون رو Open کنید.

3.به منوی Add-ins Manager و سپس Add in manager را باز کنید.

4.روی گزینه Package and Deployment Wizard دویار کلیک کنید تا جلوی آن عبارت Loaded بیاید.

5.پروژه خودتون رو Save کنید.

6.دوباره به منوی Add-ins Manager برین و حالا یک عبارت جدید به لیست اضافه شده (Package and Deployment Wizard ) وارد این ویزارد شوید.

7.گزینه Package رو کلیک کنید کمی صبر کنید.اگر پیغامی ظاهر شد گزینه Compile را بزنید.در اینصورت VB فایل EXE از برنامه تهیه می کند ولی این فایل به تنهایی برای اجرا شدن بر روی Computer هایی که VB ندارند کافی نیست.

8.اگر پیغامی مبنی بر Save پروژه آمد Yes را کلیک کنید.

9.Next

10.Folder ی که می خواهید Package برنامه شما د آنجا ساخته شود را معرفی کنید.

11.Next

12.Next

13.Next

14.Title و یا همان تیتر برای Setup برنامه خود بنویسید.و سپس Next

15.در این مرحله Setup یک Shortcut از برنامه شما در منوی Start می خواهد تهیه کند.مانند خیلی از برنامه ها.ولی یک مشکل دارد و آن این که فایلی را که در منوی Start بعد از Setup می سازد بدون پسوند است در نتیجه Windows آنرا نمیشناسد و Unknown می دهد.برای دفع این مشکل در همان صفحه ای که هستید دکمه Properties رو کلیک کنید و در قسمت Name به انتهای آن پسون Exe. را اضافه کنید .OK و سپس Next.

16.Next

17.Next

18.Finish

---

مراحل ساخت Package برای پروژه شما تمام شد.به محلی که ساخته شده بروید و فایل Setup رو اجرا کنید.با این عمل پروژه تان بر روی کامپیوترتون نصب می شود.با انتقال کل این  Package به کامپیوتری دیگر می توانید آن را در هر جا نصب کنید

حرکت Form با ماوس (Mouse)

سوال:چه طور ميشه کاري کرد که وقتي فقط کليک چپ ماوس رو پايين نگه ميداريم هر جا ماوس ميره فرم هم دنبال اون بره و وقتي که انگشتمونو از رو ي کليک چپ بر ميداريم ديگه فرم دنبال ماوس نياد

---

برای اینکار باید از API های ویندوز استفاده کرد که خیلی آسونه و لازم به حفظ کردنش نیست برنامه زیر رو دانلود کنید تا عملکردش رو ببینین.

لینک : Move Form With Mouse Download

لیست فایل ها و برنامه های در حال اجرا Windows

سوال : سلام
من یه سوال دیگه هم داشتم
اونم اینه که چه طور بفهمیم که مثلا" فایل c:\reza.exe اجراست یا نه؟

---

این برنامه لیستی از فایل های در حال اجرا رو به شما میده می تونین Refresh کنیدش یا خودتون یک Timer واسه Refresh کردنش بذارین.به هر حال اینم جواب.....آخه کجا جواب 3 تا سوال سنگین و کمتر از 24 ساعت میدن ...؟؟

لینک دانلود : VB Find Running Applications Download

تغییر Attribute فایل ها

سوال : چه طور میشه با ویژوال بیسیک یه فایل رو مخفی کرد.هر جوری که شده فقط مخفی بشه؟

بازم سلام به این دوست خوبم که چندتا سوال کردن . در جواب باید بگم که شما می تونین Attribute فایلها رو به روش زیر تغییر بدین مثلاً Read Only Hidden Archive و .... که واسه مخفی کردن هم کافیه Hidden کنیدش ....

SetAttr "c:\1.jpg", vbHidden

 

یک نرم افزار با VB برای مدت زمان اتصال به Internet

این برنامه رو برای آقای رضا که تو Comments سوال فرموده بودن نوشتم امروز صبح.روش زیاد میشه کار کرد شاید بعداً حسابی بش برسم ولی برای نشون دادن کدها و آموزش خوبه.کافیه این برنامه رو اجرا کنید و کنار صفحتون قرار بدین و به اینترنت وصل شین و هر موقع خواستین DC بشین . برنامه اتوماتیک مدت زمان ها ی اتصال رو حساب می کنه و در یک ListBox قرار میده .

لینک دانلود : Internet Connection Timer Download

---

تمام اجزای کنترل پنل در VB

همونطور که در شکل مشاهده می کنید این برنامه توسط Api امکانات زیادی به برنامه نویس برای کنترل Control Panel میده ....

لینک دانلود : VB Control Panel Api Download

 

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

این برنامه  Resource Hack نام داره و توسط اون میشه محتوای بسیاری از Dll ها Ocx ها Exe ها و ... رو مشاهده کرد و قسمتی از اون هارو تغییر داد مثلاً Tiltle برنامه و WelCome Screen و ....

لینک دانلود : ResHack Download 0.5 MB

فرستادن مقادیر keyboard توسط کد

شما می تونین عیناً تمام کارهایی که می خواین با keyboard تایپ کنید رو توسط کد به برنامه بفرستید انگار که تایپ کرده این.

مثال :

SendKeys "%{f4}"     'Alt + F4 and closes the program

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

Key	Code
BACKSPACE	{BACKSPACE}, {BS}, or {BKSP}
BREAK	{BREAK}
CAPS LOCK	{CAPSLOCK}
DEL or DELETE	{DELETE} or {DEL}
DOWN ARROW	{DOWN}
END	{END}
ENTER	{ENTER} or ~
ESC	{ESC}
HELP	{HELP}
HOME	{HOME}
INS or INSERT	{INSERT} or {INS}
LEFT ARROW	{LEFT}
NUM LOCK	{NUMLOCK}
PAGE DOWN	{PGDN}
PAGE UP	{PGUP}
PRINT SCREEN	{PRTSC}
RIGHT ARROW	{RIGHT}
SCROLL LOCK	{SCROLLLOCK}
TAB	{TAB}
UP ARROW	{UP}
F1	{F1}
F2	{F2}
F3	{F3}
F4	{F4}
F5	{F5}
F6	{F6}
F7	{F7}
F8	{F8}
F9	{F9}
F10	{F10}
F11	{F11}
F12	{F12}
F13	{F13}
F14	{F14}
F15	{F15}
F16	{F16}

انتقال اطلاعات از VB به Excel

برنامه که نیست چون فقط یک دکمه داره ولی اگوریتمش خیلی بدرد می خوره چون راحت میشه با Excel ازتباط بر قرار کرد . سعی می کنم یک DLL واستون درست کنم که راحت اطلاعاتتون رو از Database ها ببرید تو Excel. اگه شما این کاره کردید واسه منم بفرستین چون من وقت زیاد ندارم .....

لینک دانلود :  Vb 2 Excel Download

ثبت ActiveX Controll ها در سیستم عامل

همونطور که می دونید اگه از فایل OCXی بخواین استفاده کنین باید هنگام نصب این فایل در سیستم عامل Register بشه.این نرم افزار این کارو واسطون میکنه .....

لینک دانلود : Vb Register Dlls & OCXs Download

کار با AutoCad از طریق Vb

این برنامه حاوی ActiveX Control ی هست که میتونه با Cad ارتباط بر قرار کنه و یک سری ترسیمان نیز انجام بده . فایل Cad.exe رو اجرا کنید تا محتویاتش Extract بشه .و از فایل Ocx و پروژه Sample اون استفاده کنید .

لینک دانلود :VB AutoCad Ocx Download

پیدا کرئن نام Printer های موجود

اگه برنامتون لازم داشت که نام تمام Printer های موجود رو بدونه (مثلاً print گرفتن با Printer دلخواه) از کد زیر استفاده کنین . بعداً کار با Printer رو کامل توضیح میدم ....

فقط دو object رو بسازین : Command1  و  List1

Private Sub Command1_Click()
Set Printer = Printers(List1.ListIndex)
End Sub

Private Sub Form_Load()
For a = 0 To Printers.Count - 1
List1.AddItem Printers(a).DeviceName
Next a
End Sub

از کار اندازی دکمه خروج فرم (Disable Close Button)

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

Public Const SC_CLOSE = &HF060
Public Const MF_BYCOMMAND = &H0

Public Declare Function GetSystemMenu Lib "user32" _
(ByVal hwnd As Long, ByVal bRevert As Long) As Long

Public Declare Function DeleteMenu Lib "user32" _
(ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long

Public Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long

---

این کد رو هم در Form_load کپی کنید .

Dim hMenu As Long

hMenu = GetSystemMenu(Me.hwnd, 0&)
If hMenu Then
Call DeleteMenu(hMenu, SC_CLOSE, MF_BYCOMMAND)
DrawMenuBar (Me.hwnd)
End If

---

همونطور که تو شکل زیر میبینید دکمه Exit غیر فعال شده .

پیدا کردن مشخصات سخت افزاری با VB

این یک نرم افزار کامل واسه شناسایی کلیه سخت افزار های دستگاه و مشخصات اون هست .حتی تا پورت InfraRed .یکم Search کردنش طول میکشه ولی مدل های خوبی داره ......

لینک دانلود : VB Hardware Info Download

اضافه کردن icon برنامتون به System Tray (کنار ساعت)

اگه می خواین یکیم برنامه هاتونو حرفهای کنید و و قتی اجراست یک Icon تو System Tray داشته باشه کافیه لز کد زیر و Icon ی که خودتون طراحی کردین استفاده کنین .....

لینک دانلود :        VB System Tray Icon Creator Download 

تنظیم سرعت Mouse Double Click -API

اگه می خواین سرعت کلیک ماوس رو با VB تنظیم کنین ازین کد استفاده کنیید......

Declare Function SetDoubleClickTime Lib "user32.dll" (ByVal wCount As Long) As Long

---

Private Sub Command2_Click()
Dim retval As Long
retval = SetDoubleClickTime(1000) ' set the double click speed to 1 second
Text2 = " 1 Second"
End Sub

آیا کامپیوتر به Internet متصل است؟

اگه می خواین برنامتون متوجه بشه که آیا سیستم به internet متصل است یا خیر از تابع زیر که Boolean هست و مقادیر  True و False رو بر میگردونه استفاده کنین.

---

Public Declare Function RasEnumConnections Lib "RasApi32.dll" Alias "RasEnumConnectionsA" (lpRasCon As Any, lpcb As Long, lpcConnections As Long) As Long
Public Declare Function RasGetConnectStatus Lib "RasApi32.dll" Alias "RasGetConnectStatusA" (ByVal hRasCon As Long, lpStatus As Any) As Long
'
Public Const RAS95_MaxEntryName = 256
Public Const RAS95_MaxDeviceType = 16
Public Const RAS95_MaxDeviceName = 32
'
Public Type RASCONN95
    dwSize As Long
    hRasCon As Long
    szEntryName(RAS95_MaxEntryName) As Byte
    szDeviceType(RAS95_MaxDeviceType) As Byte
    szDeviceName(RAS95_MaxDeviceName) As Byte
End Type
'
Public Type RASCONNSTATUS95
    dwSize As Long
    RasConnState As Long
    dwError As Long
    szDeviceType(RAS95_MaxDeviceType) As Byte
    szDeviceName(RAS95_MaxDeviceName) As Byte
End Type

---

Public Function IsConnected() As Boolean
Dim TRasCon(255) As RASCONN95
Dim lg As Long
Dim lpcon As Long
Dim RetVal As Long
Dim Tstatus As RASCONNSTATUS95
'
TRasCon(0).dwSize = 412
lg = 256 * TRasCon(0).dwSize
'
RetVal = RasEnumConnections(TRasCon(0), lg, lpcon)
If RetVal <> 0 Then
                    MsgBox "ERROR"
                    Exit Function
                    End If
'
Tstatus.dwSize = 160
RetVal = RasGetConnectStatus(TRasCon(0).hRasCon, Tstatus)
If Tstatus.RasConnState = &H2000 Then
                         IsConnected = True
                         Else
                         IsConnected = False
                         End If

End Function

---

مثال :

If IsConnected = True Then Label1.Caption = "Connected" Else Label1.Caption = "Disconnect"

یک پیدا کننده فضای خالی درایو ها با API

زیاد توضیح نداره .کاره خودمه و با API کار می کنه ........

لینک دانلود : VB Drives Free Space(API) Download

یک برنامه واسه پیدا کردن اطلاعاتی در مورد درایوها(Partitions)

این برنامه ای رو که نوشتم ابتدا لیست تمام درایو ها و سپس فضای خا لی قالب درایو و کل حجم رو تو 3 تا Listbox همونطور که تو عکس می بینید  نشون می ده ......

لینک دانلود : VB Drives Information 

ScreenShot برنامه :

ماشین حساب

من دوباره لینک بر نامه ها رو چک کردم ولی هیچ کدوم فیلتر نیستن !!!!!

یک لینک دیگه واسه دانلود : Calculator Download

یک ماشین حساب به تمام معنا......

این یک ماشین حساب خیلی بدرد بخور و تقریباْ کامل با یک Design خوبه که بدرد همه می خوره ........وجود توابع ARC خیلی کاملترش کرده .....

لینک دانلود : VB Calculator Download

 

تنظیم تاریخ و ساعت کامپیوتر با vb

کد بدرد بخوریه.یک تابعه که بهش آرگومانهای لازم رو میدی و برات همه چیه تنظیم میکنه.به  Dim SetTime As SystemTime توجه کنید .

Private Type SystemTime
  wYear As Integer
  wMonth As Integer
  wDayOfWeek As Integer
  wDay As Integer
  wHour As Integer
  wMinute As Integer
  wSecond As Integer
  wMilliseconds As Integer
End Type

Private Declare Function SetLocalTime Lib "kernel32.dll" (lpSystemTime As SystemTime) As Long

Public Sub SetNewTime(NewHour As Integer, NewMinute As Integer, NewSecond As Integer)
' Set the system time with Hours, Minutes, Seconds
Dim SetTime As SystemTime
Dim RetVal As Long

SetTime.wHour = NewHour
SetTime.wMinute = NewMinute
SetTime.wSecond = NewSecond
SetTime.wMilliseconds = 0
SetTime.wDay = Day(Date)
SetTime.wMonth = Month(Date)
SetTime.wYear = Year(Date)

' Set time and date.
RetVal = SetLocalTime(SetTime)
End Sub

تغییر Resulution با VB

اگر یک برنامه چند رسانه ای و یا یک برنامه جاگیر تو صفحه می نویسین حتما این برنامه که ماله آقای Abdus Saboor هست استفاده کنین البته بدلیل اهمیت Code برنامه ریاد رو ِDesign اون کار نشده ولی عالیه......

لینک برنامه :Change Resulution 

shutdown کردن یک کامپیوتر تو شبکه

اصولاً وی بی تو شبکه نقص داره و جز یک winsock که قبلاً گفتم باید از Api هی سیستم عامل استفاده کرد.در این زمینست که آدم نویسندگان .net رو شکر میکنه.همونطور که می دونین دستور shell فرمانهای dos رو هم اجرا می کنه .

که میشه واسه یک کامپیوتر دیگه مه ip اون رو می دونیم یک فرمان فرستاد که خاموشش کنه.کد زیر با ip 127.0.0.1 که locale ip هست کار میکنه و کامپیوتر خودتونو خاموش میکنه .عوضش کنین و ip های مختلف رو توش امتحان کنین.

Private Sub Command1_Click()
Dim RetVal
RetVal = Shell("shutdown /s /m /f  \\127.0.0.1", 1)
End Sub

توی نرم افزار خودم که قولش رو داده بودم که شامل یک برنامه Server Client میشه میتونین با فرستادن کدهایی که تو برنامه به طور قراردادی بین دو برنامه نوشته میشه اونو خاموش کنین.مزیت این روش اینه که شما port رو هم میتونین انتخاب کنین که از security های الکی رد شین.

 

پیدا کردن ip کامپیوتر

کافیه فقط یک winsock به فرمتون اضافه کنین.فرض می کنیم اسمش winsock1 هست با کدهای زیر میتونین نام و ip کامپیوتر جاری رو پیدا کنین.

Text1.Text = Winsock1.LocalHostName

Text1.Text = Winsock1.LocalIP

اینم آیکون winsock واسه کسایی که باهاش آشنایی ندارن.

                                      

تو پست بعدی سعی می کنم استفاده از یک نرم افزار vb که خودم نوشتمش و برای اتصالات شبکه هست رو بنویسم خود برنامه رو هم میذارم .احتمالاً اگه از پشتیبانی نکردن vb بر خلاف vb.net از webservice ناراحتید این بدردتون می خوره.

اینم یک پروژه بسیار آموزنده برای shut down restart & log off کردن کامپیوتر همراه با تایمر

با تنظیم کردن تایمر برنامه و نوع عمل اون با option Button ها که شامل Restart LogOff و Shut down  میشه می تونین ازش استفاده کنین.نوشته ی خودم نیست از جایی download کردمش .ساید به خاطر همین تمیز و مرتبه .

لینک دانلود : shutdown manager

یک نما از GUI برنامه :

باز و بست در CD Rom

یکی از کارای جالبی که میشه کرد باز و بست در Cd -Rom هست.این برنامه بعد از اجرا در Cd Rom رو باز و بست میکنه .میتونین از مدل 1 که تو برنامس استفاده کنین و تو برنامه هاتون بذارین.اگه نتونستین برنامه رو Stop کنین دکمه های Ctrl+ Pause رو بزنین تا به حالت pause برنامه بره.

لینک برنامه : CD-Rom Open/Close