建議你使用注冊表的API進(jìn)行修改
創(chuàng)新互聯(lián)成立于2013年,是專業(yè)互聯(lián)網(wǎng)技術(shù)服務(wù)公司,擁有項(xiàng)目成都網(wǎng)站制作、做網(wǎng)站網(wǎng)站策劃,項(xiàng)目實(shí)施與項(xiàng)目整合能力。我們以讓每一個(gè)夢想脫穎而出為使命,1280元烏拉特中做網(wǎng)站,已為上家服務(wù),為烏拉特中各地企業(yè)和個(gè)人服務(wù),聯(lián)系電話:18980820575
封裝兩個(gè)NET函數(shù)給你
private?string?GetReg(string?RegPath)??取得注冊表項(xiàng)內(nèi)容
{
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)??//設(shè)置注冊表內(nèi)容
{
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,
采用默認(rèn)的瀏覽器打開FTP站點(diǎn),不需要知道IE在什么地方,建議采用。
Shell("rundll32
url.dll
FileProtocolHandler
")
2,采用IE打開,只要更改為你的ie路徑就可以了。不建議使用這個(gè)方法。
Shell("C:\Program
Files\Internet
Explorer\iexplore.exe
")
1、首先打開excel工作表格。
2、其次用鼠標(biāo)右鍵點(diǎn)擊“標(biāo)簽欄”,選擇“插入”。
3、最后選擇里面“工作表”點(diǎn)擊即可完成添加。
'試試這個(gè),引用了一個(gè) SLEEP 函數(shù) 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" '在引號中填入你的用戶名,現(xiàn)在是我的
IE.Document.getElementById("password").Value = "1111111" '引號中填入你的密碼,這可不能告訴你
IE.Document.getElementById("login").Click
End Sub