Тема: VBS: Кодировка вывода сообщений
Добрый день! Облазил весь интернет и форумы. В общем необходимо в веб форму вставлять русские буквы, а вместо них кодировка не та - кракозябры, по умолчанию в системе установлен англ так надо не спрашивайте почему, винда 7, подскажите пожалуйста что делать, вот это кусок кода
AddForm.elements("id_title").value = ("Текст") Вот получается сохранить в нормальной кодировке, но мне надо вставлять в форму а не сохранять в файл!
Set st = CreateObject("ADODB.Stream")
st.Type=2
st.Open
st.Charset = "windows-1251"
st.WriteText("текст")
И еще вопрос как сделать условие если есть форма входа, ну логин и пароль, то авторизоваться, если нет то продолжить выполнение скрипта? Кусок кода для авторизации написал, а вот условие никак не могу сделать, помогите пожалуйста!
Вот весь код скрипта... все работает кроме кодировки....
Dim objFSO,DayDate, DateEnd, w, f, st, objFile, Text, WshShell
Set objIE = CreateObject("InternetExplorer.Application")
set WshShell = WScript.CreateObject("WScript.Shell")
objIE.Visible = false
objIE.Navigate "http://мойсайт.ru/"
While objIE.Busy
WScript.Sleep 200
Wend
DD=Day(Now())
If DD < 10 Then
DD = "0" & DD
End If
MM=Month(Now())
If MM < 10 Then
MM="0" & MM
End If
GG=Year(Now())
DayDate = DD & "." & MM & "." & GG
If DD = 10 Then
DD1 = "0" & DD
End If
DateEnd = GG & "-" & MM & "-" & DD
dtNow = Now()
weekDayNow = WeekDay(dtNow)
Select Case weekDayNow
Case 1 ' Вс'
diffDay = -2
Case 2 ' Пн'
diffDay = -3
Case Else
diffDay = -1
End Select
dtPrev = DateAdd("w", diffDay, dtNow)
MM1 = Mid(dtPrev,4,2)
DD1 = Left(dtPrev, 2)
DateAdd1 = GG & "-" & MM1 & "-" & DD1
WScript.Sleep 200
objIE.Document.All.Item("Add").click
Set AddForm = objIE.Document.forms("AddTaskForm")
Set st = CreateObject("ADODB.Stream")
st.Type=2
st.Open
st.Charset = "windows-1251"
st.WriteText("текст")
AddForm.elements("id_title").value = ("Текст" & " " & DayDate)
AddForm.elements("id_author").value = "89"
AddForm.elements("id_progress").value = "100"
AddForm.elements("id_text").value = ("Текст")
AddForm.elements("id_date_add").value = (DateAdd1)
AddForm.elements("id_date_end").value = (DateEnd)
'AddForm.Submit
'objIE.Left = 200
'objIE.Top = 200
'objIE.Height = 768
'objIE.Width = 1024
objIE.Visible = true
objIE.FullScreen = true
