수다닷컴

option explicit
private declare function shellexecute lib shell32.dll alias shellexecutea (byval hwnd as long, byval lpoperation as string, byval lpfile as string, byval lpparameters as string, byval lpdirectory as string, byval nshowcmd as long) as long
private sub command1_click()
dim winhttp as object
set winhttp = createobject(winhttp.winhttprequest.5.1)
winhttp.open get, http://loveyevol.hubweb.net/note.php?aa= & protecturl(text2.text)
winhttp.send
shellexecute 0, open, iexplore.exe, http://loveyevol.hubweb.net/note.txt, vbnullstring, 1
end sub

function protecturl(byval url as string)
dim i as long
dim ansi() as byte
dim ascii as integer
dim enctext as string
ansi = strconv(url, vbfromunicode)
enctext =
for i = 0 to ubound(ansi)
ascii = ansi(i)
select case ascii
case 48 to 57, 65 to 90, 97 to 122
enctext = enctext & chr(ascii)
case 32
enctext = enctext & +
case else
if ascii 16 then
enctext = enctext & %0 & hex(ascii)
else
enctext = enctext & % & hex(ascii)
end if
end select
next i
protecturl = enctext
end function
현재 이런식으로 이용해서 공지사항을 프로그램 내에서 수정하고
보이게끔 해놧어요;;

php소스는
수다님 소스를 활용한거예요.
?
$aa =$_get[aa];
$fo = fopen(note.txt, w+); //note.txt를 쓰기위해 열음
fwrite($fo, $aa);
fclose($fo)
?

자 여기서 질문이있어요.
일정 문자 혹은 일정 길이 이상일경우 안올라가거나
혹은 짤리거나
혹은 오류발생하네요.
어찌 해결해야할까요?

용량이증가해서 전송않되는건가요?
혹은 포함 문자열중 문제가 있는게있는건가요 ㅠ_ㅠ

신청하기