Перейти к содержанию

ros.pro

Пользователи
  • Постов

    2 451
  • Зарегистрирован

  • Посещение

  • Победитель дней

    1

Весь контент ros.pro

  1. Justice, там где прога на си шарпе работает, нужен сервер. дописываешь прогу на си шарпе, чтобы она сохраняла файл на сервер, а на сайте, при помощи пхп уже обращаешься к файлу на сервере.
  2. InterBase, FireBird, Access. Имхо, лучше Access. Он постоянно фигурирует в такого рода работах, плюс по нему инфы просто очень много.
  3. zlato, только блокнотики, только хардкор!)))
  4. бедный топикстартер. Щас посмотрит на Petrovichtim и расхочет быть программистом =))
  5. чтобы вообще ничего не вылазило? тогда так: '******************************************************************** 'Запуск 1С Предприятие 8.2 'с окном выбора баз из списка ' '******************************************************************** const HKEY_CURRENT_USER = &H80000001 const HKEY_LOCAL_MACHINE = &H80000002 Const OverwriteExisting = True Const ForReading = 1 On Error Resume Next Set objFSO = CreateObject("Scripting.FileSystemObject") Set WSHNetwork = WScript.CreateObject("WScript.Network") Set WshShell = CreateObject("WScript.Shell") Do While WSHNetwork.username = "" WScript.Sleep 250 Loop strComputer = WshNetwork.ComputerName Set objEnv = WshShell.Environment("process") strUserName = WshNetwork.UserName strUserProfile = WshShell.ExpandEnvironmentStrings("%userprofile%") strFolderName = strUserProfile & "\Application Data\1C\1CEStart\" If objFSO.FolderExists(strFolderName) Then else objFSO.CreateFolder(strUserProfile & "\Application Data\1C") objFSO.CreateFolder(strUserProfile & "\Application Data\1C\1CEStart") end if objFSO.CopyFile "c:\install\default\ibases.v8i" , strFolderName, OverwriteExisting if msgbox ( "Уважаемые пользователи!" & vbnewline &_ "Перед запуском 1C проверьте наличие требуемых для работы принтеров." & vbnewline &_ "Нажмите OK для открытия окна установки принтеров", 1, "Установка принтеров")=1 then wshShell.Run "c:\print\printexplorer.exe /n,/root,c:\print\Printers.{2227A280-3AEA-1069-A2DE-08002B30309D}", 1 end if Set colGroups = GetObject("WinNT://" & strComputer & "") colGroups.Filter = Array("group") For Each objGroup In colGroups For Each objUser in objGroup.Members if objUser.Name = strUserName Then ' Wscript.Echo objGroup.Name ' Wscript.Echo objUser.Name Select Case objGroup.name case "Administrators" wshShell.Run "%systemdrive%\windows\explorer.exe", 1, FALSE Case "1C_Users" wshShell.Run "%systemdrive%\windows\explorer.exe", 1, FALSE Case Else End Select end if Next Next Wscript.Quit(0)
  6. }{OTT@БЬ)Ч, так ты попробуй, как я посоветовал, должно помочь.
  7. }{OTT@БЬ)Ч, вообще обе строки должны запускать эксплорер. Но не запускают, потому что пользователь не входит в группу админов. Перед добавь
  8. wshShell.Run "%systemdrive%\windows\explorer.exe", 1, FALSE на wshShell.Run "%systemdrive%\windows\explorer.exe", 1, TRUE
  9. да чего вы спорите? Олимпиадное программирование - хорошо. Но только Олимпиадное программирование - плохо. Сможет ли программист писать эффективный код, без изучения техник олимпиадного программирования? Да, сможет. Как быстрее всего научиться писать эффективный код? Олимпиадное программирование.
  10. я один считаю вертолетики не сложными? )) по сравнению с гоночками в мафии?
  11. Mac, а то, что у девушки-студентки имя Боря, уже никого не смущает? ))
  12. VermuT, откуда картинки? ) с группы в вк? подскажи адрес, плиз
  13. пхп простой язык. начни с пхп для чайников. с любой книги из этой серии
  14. Panzer, вы утрируете. Такое ощущение, что у вас кроме белого и черного ничего нет. Многое, что выдает СМИ за православие или верующих - таковым не является. Вас просто обманывают. Вам показывают кучку ненормальных, а вы идете на форум, писать о том, что православие плохо. Это не верно.
  15. Panzer, Нет! Вперед к Америке, капитализму, геям, лесбиянкам и чайлд фри! зы:ирония. зыы: Да что вы передергиваете все время. Вам не говорят "назад", вам говорят "помнить". Ведь нет будущего, если нет прошлого.
  16. смайл, он имел ввиду, что дети рожденные вне брака - ублюдки или бастарды. Так их в средневековом обществе называли. Он наверно там и живет до сих пор))
  17. Larisaoo я предлагаю выдавать предупреждения за не соответствия заголовков новости к её тексту.
  18. Доброго времени суток, уважаемые форумчане! Все вы знаете пользователя, под ником 1111111111. Так же вы видите новости и заголовки новостей, которые он выкладывает. Причем не всегда источник вызывает уважение или вообще бывает доступен. Текст же новостей отдает фальсификацией и практически всегда противоречит заголовку. Я считаю, что пользователь 1111111111 ведет настоящую, целенаправленную пропаганду, нацеленную на одурачивание людей и дестабилизации общества. Чтобы в этом убедиться, прочтите заголовки новостей, которые он размещает: Сейчас я расскажу как это работает: Во-первых: яркий, броский заголовок, который привлекает внимание. Обратите антироссийскую и антинародуню направленность заголовков. Т.к. большинство людей не читает текст новости вдумчиво, то запоминается только заголовок. Во-вторых: Накопленная информация из заголовков вызывает так называемый эффект "штампов". Когда человек, мыслит, составляя окружающую картину только из броских и желтых заголовков. Согласитесь, это отвратительно сказывается на представлении человека о своей Родине. Почему он это делает - я не знаю. Может быть не специально, может быть он сам является жертвой таких вот заголовков. Хотите ли вы дальше терпеть ложь в отношении Родины и быть использованным этим человеком в его целях? Может быть нужно что-то сделать? Почему бы администрации не выдавать предупреждения, за заголовок не соответствующий тексту новости? Всем спасибо за внимание. Быть может я иду в разрез с чьем-либо мнением. Но высказаться просто обязан.
  19. Капри3ная откуда человек узнает, сможет он или нет, если задания не видел?
  20. Ulan.VIP, все верно говоришь. вот только подростки минусы ставят тебе, жаль.
×
×
  • Создать...