برگزیده های پرشین تولز

كسي وي بي دات نت بلده؟؟

parscyber

Registered User
تاریخ عضویت
18 سپتامبر 2004
نوشته‌ها
1,170
لایک‌ها
16
سن
34
سلام.
ميخواستم بدونم كه كسي اگه اينجا وي بي دات نت بلده كمكم كنه...
من ميخوام برنامه ام رو از ليست ctrl+alt+delete بردارم.
او وي بي 6 اين كار با دستور زير انجام ميشد:
App.TaskVisible = False​
ما تا اونجايي كه ميدونيم تو دات نت App هست Application. حالا ديگه نميدونيم معادل دستورش چيه...
لطفا اگه ميدونيد كمكم كنيد. :)
 

Piter1356

کاربر تازه وارد
تاریخ عضویت
11 اکتبر 2004
نوشته‌ها
395
لایک‌ها
0
محل سکونت
tehran
سلام
یه راه حل
تا اونجایی که میدونم دات نت یه کانورتور کدهای وبی 6 به دات نت داره .
این کد رو تو یه فرم ساده بنویس . بعد به دات نت کانورت کن . خودش معادلش رو جایگزین میکنه . :)
 

parscyber

Registered User
تاریخ عضویت
18 سپتامبر 2004
نوشته‌ها
1,170
لایک‌ها
16
سن
34
مرسي ولي اين كانورتور كجاست؟ من تا اونجايي كه ميدونم اين چيز رو نداره.
دوست عزيز اگه ميشه ميتوني كمك كني بگي اين مبدل كجاست؟
ممنون ميشم
 

littlerabbit

مدیر بازنشسته
کاربر فعال
تاریخ عضویت
13 جولای 2003
نوشته‌ها
678
لایک‌ها
6
سن
42
محل سکونت
Iran
فقط كافيه برنامه كه با وي بي 6 نوشتي با وي بي نت باز كني.(منوي Open) يه ويزارد مياد و خودش اين كارو ميكنه.
 

saeed_1369

کاربر تازه وارد
تاریخ عضویت
7 دسامبر 2007
نوشته‌ها
53
لایک‌ها
0
Imports System
Imports System.Diagnostics

Private Sub frmMain_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
txtMachine.Text = System.Environment.MachineName.ToString
Call FillList(txtMachine.Text)
End Sub

Sub FillList(ByVal MachineName As String)
Dim Prc() As Process
Dim i As Integer
Dim lvwP As ListViewItem
Try
lvwProcesses.Items.Clear()
Prc = Process.GetProcesses(MachineName)

For i = 0 To UBound(Prc)
lvwP = lvwProcesses.Items.Add(Prc(i).ProcessName.ToUpper)

If MachineName <> System.Environment.MachineName Then
lvwP.SubItems.Add("Unavailable...")
lvwP.SubItems.Add("Unavailable...")
lvwP.SubItems.Add(Prc(i).Id)
Else
lvwP.SubItems.Add(Prc(i).MainWindowTitle)
lvwP.SubItems.Add(Prc(i).Responding)
lvwP.SubItems.Add(Prc(i).Id)
End If

Next
Catch
lvwProcesses.Items.Add("Error enumerating items...")
End Try
End Sub

Private Sub cmdEndProc_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdEndProc.Click
Dim Prc As Process

If txtMachine.Text = System.Environment.MachineName.ToString Then
Try
Prc = Process.GetProcessById(lvwProcesses.SelectedItems(0).SubItems(3).Text)
Prc.Kill()
lvwProcesses.Items.Remove(lvwProcesses.SelectedItems.Item(0))
Catch
MessageBox.Show("Could not close process, " & Err.Description, "Error:", MessageBoxButtons.OK, MessageBoxIcon.Stop)
End Try
Else
MessageBox.Show("You cannot close processes on a remote machine, only view them!", "Error:", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
End If
End Sub

Private Sub cmdRefresh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdRefresh.Click
txtMachine.Text = txtMachine.Text.ToUpper
Call FillList(txtMachine.Text)
End Sub
یکمی فکر کنی می تو نی از این کد نیازت رو برداری من وقت کم دارم تا برات سادترش کنم
 
بالا