UWSC Thread処理にて最大スレッド数エラーが出てしまう件につきまして

通販の業務をしておりまして
商品画像のアップロードをする為に Thread 関数を利用して画像指定ポップアップを
処理するコードを書きました。
基本的に正常に動作するのですが、毎回６４個目の商品で
”最大スレッド数＝６４を超えました”
というエラーが出て止まってしまいます。

CTRLWIN( id, CLOSE2) を追記するなど色々コードを変えたのですが

解決できません。お分かりになる方がいらっしゃいましたら
アドバイスを頂きたいです。

↓以下ソースです。

//画像アップロード
imageno=1
PUBLIC hantei = 1
REPEAT
print "imageno" + imageno
PATH = "C:\Users\画像" + imageid + "_" + imageno + "-org.jpg"
NAME = "updfile" + imageno
Thread PopupWin("アップロードするファイルの選択","開く(O)",2,PATH)

			BusyWait()
			obj  = IE.document.getElementByID("upload-area")
			objP = obj.getElementsByTagName("p")
			objP.item(0).click()
			BusyWait()
			sleep(2)
			imageno = imageno + 1
		UNTIL imageno > imagecnt

//------
Procedure PopupWin(title, btn, no=-1, str="")
Sleep(2)
id = Getid(title,"#32770",10)
print "id;" + id
IF no>=0 then Sendstr(id,str,no,True)
Sleep(1.5)
Clkitem(id,btn)
Sleep(2)
CTRLWIN( id, CLOSE2)
Fend
//------

以上、宜しくお願い致します。

行動規範の内容に同意します

回答1件

ベストアンサー

Thread PopupWinをRepeatの前に出せばいいじゃ無いでしょうか。
PATHはグローバルにしとく。
面倒なのでPopupWinは無限ループで。(imageno,imagecntでループしてもいいと思いますが)
以下な感じでどうでしょう。

UWSC
1//画像アップロード
2imageno=1
3PUBLIC hantei = 1
4PUBLIC PATH = ""
5
6Thread PopupWin("アップロードするファイルの選択","開く(O)",2)
7
8REPEAT
9  print "imageno" + imageno
10  PATH = "C:\Users\画像\" + imageid + "_" + imageno + "-org.jpg"
11  NAME = "updfile" + imageno
12
13  BusyWait()
14  obj  = IE.document.getElementByID("upload-area")
15  objP = obj.getElementsByTagName("p")
16  objP.item(0).click()
17  BusyWait()
18  sleep(2)
19  imageno = imageno + 1
20UNTIL imageno > imagecnt
21
22Procedure PopupWin(title, btn, no=-1)
23  REPEAT
24    //Sleep(2)
25    id = Getid(title,"#32770",-1) //Sleep(2)やめて確保できるまで待つ
26    print "id;" +  id
27    IF no>=0 then Sendstr(id,PATH,no,True)
28    Sleep(1.5)
29    Clkitem(id,btn)
30    Sleep(2)
31    CTRLWIN( id, CLOSE2)
32  UNTIL FALSE //無限ループ
33Fend
34