vb怎麼不斷迴圈傳送資料出去

2022-06-08 04:16:15 字數 2456 閱讀 2917

1樓:不落的夕陽羊

貌似**沒什麼問題,如果textbox的multiline屬性沒設定為true,最多也就不能顯示多行文字,應該不會只是傳送第一次迴圈時的資料,可能是其它地方有問題吧,把接收部分的**也貼出來看看。

暈~,傳送前你用了vbcrlf作為資料識別符號,那麼在do while內面可能會有n條資料,接收部分既然用了split函式以vbcrlf為特徵生成陣列,而你只取x(1)元素的資料,當然是只有一條資料了,那麼x(2)、x(3)、x(4)、......的資料呢!,應該這樣才能讀出全部資料:

dim x() as string

dim i as integer

dim mstr as string

winsock1.getdata strdatax = split(strdata, vbcrlf)if x(0) = "*" then

for i = 1 to ubound(x)mstr = mstr & x(i)

next

text1.text = mstr

end if

2樓:匿名使用者

dim n as integer

private sub form_load()n = 0

timer1.interval = 3000end sub

private sub timer1_timer()if n >= 1000 then

n = 0

end if

if n mod 4 = 0 then

sendkeys ""

sendkeys ""

sendkeys ""

sendkeys ""

sendkeys "同屏"

sleep 1000

sendkeys ""

sendkeys text1.text

sendkeys ""

end if

if n mod 4 = 1 then

sendkeys ""

sendkeys ""

sendkeys ""

sendkeys ""

sendkeys "國家"

sleep 1000

sendkeys ""

sendkeys text1.text

sendkeys ""

end if

if n mod 4 = 2 then

sendkeys ""

sendkeys ""

sendkeys ""

sendkeys ""

sendkeys "地圖"

sleep 1000

sendkeys ""

sendkeys text1.text

sendkeys ""

end if

if n mod 4 = 3 then

sendkeys ""

sendkeys ""

sendkeys ""

sendkeys ""

sendkeys "職業"

sleep 1000

sendkeys ""

sendkeys text1.text

sendkeys ""

end if

end sub

vb for迴圈怎麼在迴圈內設定停止迴圈?

3樓:典修敏

for i=0 to 20

response.write(i)

if i >= 10 then

exit for

end if

next

用exit for 可以無條件退出當前for迴圈

vb中迴圈語句巢狀條件語句時,怎樣讓條件一旦滿足一次就跳出迴圈?

4樓:網海1書生

for i = 1 to 1000

if i mod 80 = 0 then

print i

exit for

end if

next i

vb如何連續讀取串列埠資料

5樓:萍水e相逢

設定 mscomm1.rthreshold 為10在 oncomm 事件中 處理!

當 rthreshold 為10 時 就接收詳細 請看 msdn 吧

vb中利用winsock如何迴圈傳送檔案(即檔案一生成,就立刻自動傳送) 100

6樓:

即檔案一生成,就立刻自動傳送

這裡的意思是指vb生成exe檔案後就自動傳送生成的exe檔案呢,還是其他意思?

7樓:

問題太大了。

在檔案生成的語句結束後呼叫winsock傳送過程不就行了?

VB中的迴圈語句有哪些,vb中的迴圈語句

1 do while.loop 當條件為true時迴圈,在進入迴圈之前檢查條件。2 do.loop while 當條件為true迴圈,在迴圈至少執行一次後檢查條件。3 do until.loop 當條件為false迴圈,在進入迴圈之前檢查條件。4 do.loop until 當條件為false迴圈,...

VB停止迴圈的問題

什麼亂七八糟啊,整這樣幹嘛。去和系統搶執行緒的優先權啊,直接在程式裡判斷就好了。定義一個全域性變數,isend 當按f10的時候,isend 1 for i 0 to 20 if isend 1 then endelse command1 click end if next ctrl break肯定...

vb中for迴圈step的問題VB中FOR迴圈STEP的問題

如果沒有其他條件使迴圈變數的值發生變化,當第一次迴圈條件滿足時,step為0將造成死迴圈,當第一次迴圈條件不滿足時,step為0不迴圈 先看這幾句執行時的作用 1 s 0,給s設初值0 2 for i 1 to 5,第一次執行這一句時,對i設初值1,以後每次執行這一句時都判斷i的值是否介於初值和終值...