原来写在计划任务里的隐藏文件管理器按键的代码失效了?
Dim frm = windows.forms.form.activeform ''(报错,加system.后面报错--)
If frm IsNot Nothing Then
If frm.Text = "文件管理器" Then
Dim obj = frm.Controls("FileManager").Controls("SplitContainer1").panel2.Controls("FlowLayoutPanel1")
' PopMessage(1,"ti",PopIconEnum.Alert,1)
obj.controls("Manager").Visible = False
obj.controls("Add").visible = False
obj.controls("Delete").visible = False
'obj.controls("open").visible = False
obj.controls("Folder").visible = False
obj.controls("Clear").visible = False
obj.controls("SaveAs").visible = False
obj.controls("Connect").visible = False
obj.controls("FullView").visible = False
Open
End If
End If
求更新代码.谢谢老师