vb.net控件自动化 vb代码生成控件

想要实现网页自动化操作需要分析网页中的哪些方面的内容？可以用vb.net写程序来实现吗？

只用python就行了啊。vs和pycharm都算是编辑器没什么关系啊，就是用记事本编辑也行哦。那就用pycharm吧，大家都吹嘘它好用。

创新互联建站专注于企业全网整合营销推广、网站重做改版、相山网站定制设计、自适应品牌网站建设、H5技术、商城网站制作、集团公司官网建设、外贸网站建设、高端网站制作、响应式网页设计等建站业务，价格优惠性价比高，为相山等各大城市提供网站开发制作服务。

就是用python的urllib模块请求网页就可以了。

登录就是post数据，然后获得cookie（可能还有一下其他的东西），带着它就可以做一些评论。

评论就是根据按钮找到相关的网页链接，向它post/get数据。

评论采集就是请求相关的网页，获得评论的数据，可能是html或者json之类的，然后用beautifulsoup或者json分析，获得格式化后的数据。

以前用Python做过一个空间的自动点赞、自动回复说说留言、获取留言的程序。

只要就是分析链接和js脚本费点时间。其他地方都简单。

VB.NET中如何动态创建控件

Option Explicit

Private WithEvents NewTextBox As TextBox

'通过使用WithEvents关键字声明一个对象变量为新的命令按钮

Private Sub Command1_Click()

If NewTextBox Is Nothing Then

Set NewTextBox = Controls.Add("VB.TextBox", "cmdNew", Form1)

NewTextBox.Move 200, 200

NewTextBox.Width = Form1.Width - 450

NewTextBox.Height = Form1.Height - 1400

NewTextBox.Visible = True

End If

End Sub

Private Sub Command2_Click()

If NewTextBox Is Nothing Then

Exit Sub

Else

Controls.Remove NewTextBox

Set NewTextBox = Nothing

End If

End Sub

VB.NET 动态控件 属性问题

布局方面，建议你用FlowLayoutPanel，不用手工控制控件位置了。假设有一个FlowLayoutPanel1。

先在窗体类中建一个控件的集合：

Dim

TextBoxes

As

New

List(Of

TextBox)

在button1的

Click事件

中写：

For

i

=

1

To

5

'5是每次加入的数量

Dim

newTextBox

As

New

TextBox()

'newTextBox.Size

=

New

Size(100,20)

'

TextBoxes.Add(newTextBox)

'加入我们的集合中

FlowLayoutPanel1.Controls.Add(newTextBox)

'加到窗体的FlowLayoutPanel中去

Next

i

然后button2的Click事件中：

For

Each

itemTextBox

As

TextBox

In

TextBoxes

'这里的itemTextBox.Text就代表每个TextBox里的文本

'如果你需要清空，调用TextBoxes.Clear()和FlowLayoutPanel.Controls.Clear()即可

Next

如何在 vb.net 为动态生成的控件添加事件并传递数据

'把图片的声明放在外面，类里面过程外面，而且要用As，不然等会儿没法用

Dim myPicture As New System.Windows.Forms.PictureBox()

'动态生成的控件，加一行

Private Sub UserControl1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

Me.Panel3.Controls.Add(myPicture)

myPicture.Size =New System.Drawing.Size(115, 160)

myPicture.TabStop =False

myPicture.Name ="p"

myPicture.Cursor = Cursors.Hand

AddHandler myPicture.Click, AddressOf mypic_Click '添加事件

AddHandler returnid, AddressOf idReturned '绑定事件和过程

End Sub

'再来个事件，放在声明的地方，就是类里面、过程外面

Private Event returnid(ByVal id As String) '这个事件可以传递值哦~

'普通的单击事件

Private Sub mypic_Click()

RaiseEvent returnid(myPicture.Name)

End Sub

'会传值的事件过程

Private Sub idReturned(ByVal id As String)

Dim bookInfo As New BookInfo

bookInfo.Show()

Me.Parent.Enabled = False

'用id变量做点什么吧

End Sub

如果要改事件的签名（参数一类的）的话，得重写控件。你可以这样自己弄一个事件。