只用python就行了啊。vs和pycharm都算是編輯器沒什么關(guān)系啊,就是用記事本編輯也行哦。那就用pycharm吧,大家都吹噓它好用。
創(chuàng)新互聯(lián)建站專注于企業(yè)全網(wǎng)整合營銷推廣、網(wǎng)站重做改版、相山網(wǎng)站定制設(shè)計(jì)、自適應(yīng)品牌網(wǎng)站建設(shè)、H5技術(shù)、商城網(wǎng)站制作、集團(tuán)公司官網(wǎng)建設(shè)、外貿(mào)網(wǎng)站建設(shè)、高端網(wǎng)站制作、響應(yīng)式網(wǎng)頁設(shè)計(jì)等建站業(yè)務(wù),價(jià)格優(yōu)惠性價(jià)比高,為相山等各大城市提供網(wǎng)站開發(fā)制作服務(wù)。
就是用python的urllib模塊請求網(wǎng)頁就可以了。
登錄就是post數(shù)據(jù),然后獲得cookie(可能還有一下其他的東西),帶著它就可以做一些評論。
評論就是根據(jù)按鈕找到相關(guān)的網(wǎng)頁鏈接,向它post/get數(shù)據(jù)。
評論采集就是請求相關(guān)的網(wǎng)頁,獲得評論的數(shù)據(jù),可能是html或者json之類的,然后用beautifulsoup或者json分析,獲得格式化后的數(shù)據(jù)。
以前用Python做過一個(gè)空間的自動(dòng)點(diǎn)贊、自動(dòng)回復(fù)說說留言、獲取留言的程序。
只要就是分析鏈接和js腳本費(fèi)點(diǎn)時(shí)間。其他地方都簡單。
Option?Explicit
Private?WithEvents?NewTextBox?As?TextBox
'通過使用WithEvents關(guān)鍵字聲明一個(gè)對象變量為新的命令按鈕
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
布局方面,建議你用FlowLayoutPanel,不用手工控制控件位置了。假設(shè)有一個(gè)FlowLayoutPanel1。
先在窗體類中建一個(gè)控件的集合:
Dim
TextBoxes
As
New
List(Of
TextBox)
在button1的
Click事件
中寫:
For
i
=
1
To
5
'5是每次加入的數(shù)量
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就代表每個(gè)TextBox里的文本
'如果你需要清空,調(diào)用TextBoxes.Clear()和FlowLayoutPanel.Controls.Clear()即可
Next
'把圖片的聲明放在外面,類里面過程外面,而且要用As,不然等會(huì)兒沒法用
Dim myPicture As New System.Windows.Forms.PictureBox()
'動(dòng)態(tài)生成的控件,加一行
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
'再來個(gè)事件,放在聲明的地方,就是類里面、過程外面
Private Event returnid(ByVal id As String) '這個(gè)事件可以傳遞值哦~
'普通的單擊事件
Private Sub mypic_Click()
RaiseEvent returnid(myPicture.Name)
End Sub
'會(huì)傳值的事件過程
Private Sub idReturned(ByVal id As String)
Dim bookInfo As New BookInfo
bookInfo.Show()
Me.Parent.Enabled = False
'用id變量做點(diǎn)什么吧
End Sub
如果要改事件的簽名(參數(shù)一類的)的話,得重寫控件。你可以這樣自己弄一個(gè)事件。