PDA

View Full Version : کدی به زبان VB6 دارم نیاز به معادل اون در vb.net دارم!



AlgorithmX
سه شنبه 21 تیر 1390, 20:47 عصر
سلام!
دوستان ببخشید من یک کدی به زبان VB6 دارم نیاز به معادل اون درvb.net دارم!
این کد نام یک فرم رو در ویندوز میگیره و اگر اون باز باشه می بندش!
مثلا وقتی Windows Task Manager رو به اون می دیم اونو برامون می بنده!!


Private Declare Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetForegroundWindow Lib "User32" (ByVal hWnd As Long) As Long


Dim WinShell
Set WinShell = CreateObject("Wscript.shell")
Dim handel As Long
handel = FindWindow(vbNullString, Text1.Text)
If handel <> 0 Then
SetForegroundWindow handel
SendKeys "%{f4}", 1
End If

flash118
سه شنبه 21 تیر 1390, 22:16 عصر
دوست عزیز لینک زیر رو بررسی بفرمایید:
http://www.developerfusion.com/tools/convert/vb-to-csharp/

AlgorithmX
چهارشنبه 22 تیر 1390, 18:30 عصر
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!! آقایون این کاره من فوریه ممنون میشم راهنمایی کنید!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Saman_12
چهارشنبه 22 تیر 1390, 22:11 عصر
دوست عزیز اگر جستجو میکردی سریع به جوابت میرسیدی!
کد شما با استفاده از عنوان پنجره اون رو میبنده پس کد زیر به کار شما میاد :

Private Declare Function findwindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer
Private Declare Function sendmessage Lib "user32.dll" Alias "SendMessageA" (ByVal hWnd As Integer, ByVal Msg As Integer, ByRef wParam As IntPtr, ByRef lParam As String) As Integer

Private Const WM_CLOSE = &H10
Private Const WM_DESTORY = &H2

Private Function closewindow(ByVal windowname As String) As Boolean

Dim Hwnd As Int32 = findwindow(vbNullString, windowname)

Return sendmessage(Hwnd, WM_CLOSE, 0, 0)
End Function

AlgorithmX
پنج شنبه 23 تیر 1390, 01:13 صبح
دوست عزیز اگر جستجو میکردی سریع به جوابت میرسیدی!
کد شما با استفاده از عنوان پنجره اون رو میبنده پس کد زیر به کار شما میاد :

Private Declare Function findwindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer
Private Declare Function sendmessage Lib "user32.dll" Alias "SendMessageA" (ByVal hWnd As Integer, ByVal Msg As Integer, ByRef wParam As IntPtr, ByRef lParam As String) As Integer

Private Const WM_CLOSE = &H10
Private Const WM_DESTORY = &H2

Private Function closewindow(ByVal windowname As String) As Boolean

Dim Hwnd As Int32 = findwindow(vbNullString, windowname)

Return sendmessage(Hwnd, WM_CLOSE, 0, 0)
End Function


ممنون میشم به این لینک (http://barnamenevis.org/showthread.php?295426-%DA%A9%D8%AF%DB%8C-%D8%A8%D9%87-%D8%B2%D8%A8%D8%A7%D9%86-VB6-%D8%AF%D8%A7%D8%B1%D9%85-%D9%86%DB%8C%D8%A7%D8%B2-%D8%A8%D9%87-%D9%85%D8%B9%D8%A7%D8%AF%D9%84-%D8%A7%D9%88%D9%86-%D8%AF%D8%B1-C-%D8%AF%D8%A7%D8%B1%D9%85%21) هم شما سر بزنید!
معادل این کد در #C. چون vb6 خیلی دور بود مجبور شدم که اول معادل vb.net ش رو گیر بیارم!