vb.net锁屏源代码,vbs锁屏

如何用vb.net获得网页的源代码

Dim url As String=" 网址"

成都创新互联公司专注为客户提供全方位的互联网综合服务，包含不限于成都网站建设、网站建设、孝昌网络推广、小程序设计、孝昌网络营销、孝昌企业策划、孝昌品牌公关、搜索引擎seo、人物专访、企业宣传片、企业代运营等，从售前售中售后，我们都将竭诚为您服务，您的肯定，是我们最大的嘉奖；成都创新互联公司为所有大学生创业者提供孝昌建站搭建服务，24小时服务热线：18982081108，官方网址：www.cdcxhl.com

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就是网页源代码

vb.net实现开机自启

程序源代码如下:

main()

{

int i,j,k;

printf("\n");

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

　for(j=1;j5;j++)　

for (k=1;k5;k++)

　{

if (i!=ki!=jj!=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.1;bonus2=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);

}

高分，高手来。想用vb做个屏保，锁屏的，要用密码解的那种…

网上找找,有源码的.

1.启动VB 6.0，新建一个标准工程。

2.在Form1中添加一个定时器控件(Timer)，把Timer1的Interval属性设置为“1”，然后把Form1的AutoRedraw属性设置为“True”，ScaleMode属性设置为“3”，BorderStyle属性设置为“0”，WindowState属性设置为“2”。

3.程序代码如下：

Option Explicit

Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long

Private Declare Function Ellipse Lib "gdi32" (ByVal hdc As Long， ByVal X1 As Long， ByVal Y1 As Long， ByVal X2 As Long， ByVal Y2 As Long) As Long

Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long， ByVal X As Long， ByVal Y As Long， ByVal nWidth As Long， ByVal nHeight As Long， ByVal hSrcDC As Long， ByVal xSrc As Long， ByVal ySrc As Long， ByVal dwRop As Long) As Long

' 定义小星星

Private Type Star

X As Long

Y As Long

Speed As Long

Size As Long

Color As Long

End Type

Dim Stars(49) As Star

Const MaxSize As Long = 5

Const MaxSpeed As Long = 25

Private Sub Form_KeyDown(KeyCode As Integer， Shift As Integer)

Unload Me

End Sub

Private Sub Form_MouseMove(Button As Integer， Shift As Integer， X As Single， Y As Single)

' 判断鼠标是否移动

Static currentX， currentY As Single

Dim orignX， orignY As Single

orignX = X

orignY = Y

If currentX = 0 And currentY = 0 Then

currentX = orignX

currentY = orignY

Exit Sub

End If

If Abs(orignX - currentX)1 Or Abs(orignY - currentY)1 Then

X = ShowCursor(True)

End

End If

End Sub

Private Sub Form_Load()'窗体载入

Dim I As Long

Randomize

' 产生100个小星星

For I = LBound(Stars) To UBound(Stars)

Stars(I).X = Me.ScaleWidth * Rnd + 1

Stars(I).Y = Me.ScaleHeight * Rnd + 1

Stars(I).Size = MaxSize * Rnd + 1

Stars(I).Speed = MaxSpeed * Rnd + 1

Stars(I).Color = RGB(Rnd * 255 + 1， Rnd * 255 + 1， Rnd * 255 + 1)

Next I

End Sub

Private Sub Timer1_Timer()

Dim I As Long

' 清屏

BitBlt Me.hdc， 0， 0， Me.ScaleWidth， Me.ScaleHeight， 0， 0， 0， vbBlackness

For I = 0 To UBound(Stars)

' 移动小星星

Stars(I).Y = (Stars(I).Y Mod Me.ScaleHeight) + Stars(I).Speed

' 重定位X位置

If Stars(I).Y Me.ScaleHeight Then

Stars(I).X = Me.ScaleWidth * Rnd + 1

Stars(I).Speed = MaxSpeed * Rnd + 1

End If

' 设置小星星颜色

Me.FillColor = Stars(I).Color

Me.ForeColor = Stars(I).Color

' 绘制小星星颜色

Ellipse Me.hdc， Stars(I).X， Stars(I).Y， Stars(I).X + Stars(I).Size， Stars(I).Y + Stars(I).Size

Next I

Me.Refresh

End Sub

如何用vb.net获取网页源代码

使用webbrowser控件来加载网页，然后再

Private

Sub

WebBrowser

1_DocumentCompleted下通过使用WebBrowser1.Document.Body.

InnerHtml

来获取网页的源代码，或使用

WebBrowser1.Document.Body.InnerText来获取网页中的文本。之后可以通过字符串控制指令或者

正则表达式

来精确获取到你所需的数据。

跪求vb.net代码

新建窗口，添加picture控件

利用line()方法画线

line(开始x坐标,开始y坐标)-(结束x坐标,结束y坐标),线的颜色，画线的方式(默认为线，B为矩形无填充，BF为填充的矩形)

For i = 1 To 16

Picture1.Line (0, Picture1.Height / 2)-(i * (Picture1.Width / 16), 0), RGB(255, 0, 0)

Picture1.Line (0, Picture1.Height / 2)-(i * (Picture1.Width / 16), Picture1.Height), RGB(255, 0, 0)

Picture1.Line (Picture1.Width, Picture1.Height / 2)-(i * (Picture1.Width / 16), 0), RGB(0, 255, 0)

Picture1.Line (Picture1.Width, Picture1.Height / 2)-(i * (Picture1.Width / 16), Picture1.Height), RGB(0, 255, 0)

Next i

如果要在窗口上画也可以调用窗口的line方法即form.line()