重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
建议你使用注册表的API进行修改
创新互联成立于2013年,是专业互联网技术服务公司,拥有项目成都网站制作、做网站网站策划,项目实施与项目整合能力。我们以让每一个梦想脱颖而出为使命,1280元乌拉特中做网站,已为上家服务,为乌拉特中各地企业和个人服务,联系电话:18980820575
封装两个NET函数给你
private string GetReg(string RegPath) 取得注册表项内容
{
string str="";
RegistryKey hkml = Registry.LocalMachine;
RegistryKey software = hkml.OpenSubKey("SOFTWARE",true);
RegistryKey aimdir = software.OpenSubKey("krabs",true);
if (aimdir != null)
{
if (aimdir.GetValue(RegPath) != null)
str = aimdir.GetValue(RegPath).ToString();
if (str != null)
return str;
return null;
}
return null;
}
private bool SetReg(string RegPath,string Data) //设置注册表内容
{
RegistryKey reg = Registry.LocalMachine;
RegistryKey software = reg.OpenSubKey("SOFTWARE", true);
RegistryKey aimdir1 = software.CreateSubKey("krabs");
if (aimdir1 == null)
return false;
aimdir1.SetValue(RegPath, Data);
return true;
}
如下两种方法,
1,
采用默认的浏览器打开FTP站点,不需要知道IE在什么地方,建议采用。
Shell("rundll32
url.dll
FileProtocolHandler
")
2,采用IE打开,只要更改为你的ie路径就可以了。不建议使用这个方法。
Shell("C:\Program
Files\Internet
Explorer\iexplore.exe
")
1、首先打开excel工作表格。
2、其次用鼠标右键点击“标签栏”,选择“插入”。
3、最后选择里面“工作表”点击即可完成添加。
'试试这个,引用了一个 SLEEP 函数 Wscript 不用了
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
Dim IE As InternetExplorer
'Set Wscript = CreateObject("wscript.shell")
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate ""
Do
Sleep 200
Loop Until IE.ReadyState = 4
IE.Document.getElementById("email").Value = "mayans@yeah.net" '在引号中填入你的用户名,现在是我的
IE.Document.getElementById("password").Value = "1111111" '引号中填入你的密码,这可不能告诉你
IE.Document.getElementById("login").Click
End Sub