vb.net实现开机自启

程序源代码如下:

main()

{

int i,j,k

printf("\n")

for(i=1i<5i++)／*以下为三重循环*/

　for(j=1j<5j++)　

for (k=1k<5k++)

　{

if (i!=k&&i!=j&&j!=k) 　/*确保i、j、k三位互不相同*/

printf("%d,%d,%d\n",i,j,k)

　 }

}

main()

{

long int i

int bonus1,bonus2,bonus4,bonus6,bonus10,bonus

scanf("%ld",&i)

bonus1=100000*0.1bonus2=bonus1+100000*0.75

bonus4=bonus2+200000*0.5

bonus6=bonus4+200000*0.3

bonus10=bonus6+400000*0.15

　if(i<=100000)

bonus=i*0.1

　else if(i<=200000)

　bonus=bonus1+(i-100000)*0.075

else if(i<=400000)

bonus=bonus2+(i-200000)*0.05

　else if(i<=600000)

　bonus=bonus4+(i-400000)*0.03

else if(i<=1000000)

bonus=bonus6+(i-600000)*0.015

　else

bonus=bonus10+(i-1000000)*0.01

printf("bonus=%d",bonus)

}

Dim url As String=" 网址"

Dim httpReq As System.Net.HttpWebRequest

Dim httpResp As System.Net.HttpWebResponse

Dim httpURL As New System.Uri(url)

httpReq = CType(WebRequest.Create(httpURL), HttpWebRequest)

httpReq.Method = "GET"

httpResp = CType(httpReq.GetResponse(), HttpWebResponse)

httpReq.KeepAlive = False ' 获取或设置一个值，该值指示是否与

Internet资源建立持久连接。

Dim reader As StreamReader = _

New StreamReader(httpResp.GetResponseStream,

System.Text.Encoding.GetEncoding(-0))

Dim respHTML As String = reader.ReadToEnd() 'respHTML就是网页源代码

---