이 계정은 정환 계정과 완전희 다른 사용자이며 사칭 계정아닙니다.

MedCom laurel.png
이 사용자는 한국어 위키백과
조정자입니다. (확인)


문제가 있으면 여기에 남겨주세요.

Creative-Tail-Animal-fish.svg


정환이의 사용자 문서에 오신것을 환영합니다^^

정환이의 그림자

FraxernVlbg1.JPG Large white (Pieris brassicae) underside.jpg M82 Chandra HST Spitzer.jpg

요즘은 코로나바이러스감염증-19 범유행의 경과등과 같이 코로나바이러스감염증-19문서를 위주로 편집중 이에요

소식편집

위키휴가 여부편집

예정?되어있습니다.(종료...)

편집편집

정환이편집

2020-05-28 11:45에 X!의 도구를 사용하여 생성함

연단위 분석편집

연도 개수
2020 997

작업(초안)편집

만우절편집

사:정환이/만우절

반스타편집

모으기 시작했습니다!!

질문방편집

사용자:정환이/질문방

조언방편집

사용자:정환이/조언방

보존방편집

도전!편집

100✔️

200✔️

300✔️

400✔️

500✔️

600✔️

700✔️

800✔️

900✔️

1000✔️

1100✔️

1200❌

1300❌

1400❌

1500❌

1600❌

1700❌

1800❌

1900❌

2000❌


장기 인증된 사용자✔️

되돌리기 사용자❌

점검 면제자❌

관리자❌

사무관❌

사무장❌

반스타❌

조정자✔️

업로더❌

블로그편집

[1]

명령어편집

Option Explicit Dim user, userpass, project, projectpage user = ""'username userpass = ""'password project = "Australian rules football"'As called on toolserver projectpage = "Wikipedia:WikiProject Australian rules football/Cleanup listing data"

'To do '* Check login success '* Wscript.Echo progress '* Error Handling

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''' 'Do Not edit below'''''' Dim oIE Set oIE = CreateObject("InternetExplorer.application") With oIE

   .Visible = True
       .navigate ("http://toolserver.org/~svick/CleanupListing/CleanupListing.php?project=" + 

project + "&format=csv") End With Do Until oIE.ReadyState = 4 'readystate 4 = done loading

   wscript.sleep 200

Loop

'Split by lines Dim arrLines, lines, strLinecount arrLines = Split(oIE.Document.body.innerText,vbCrLf) lines = UBound(arrLines)

strLinecount = -1

Dim articles() ReDim articles(lines)

Class Article

  Public Name
  Public Importance
  Public Clas 'Class is reserved keyword
  Public Count
  Public Oldest
  Public Categories
  Public sCategories

End Class

'Process eachline Dim strLine, pieces For Each strLine in arrLines

       strLine = Mid(Left(strLine,Len(strLine) - 1),2) 'Remove first and last "
       pieces = Split(strLine,Chr(34) & "," & Chr(34)) 'Split by ","
       
       if strLinecount=-1 Then 'Skip 1st line
               strLinecount=0
       Else

       'Add article & its cats to array
       Set articles(strLinecount) = New Article
       With articles(strLinecount)
               .Name = "" + pieces(0) + ""
               .Importance = pieces(1)
               .Clas = pieces(2)
               .Count = pieces(3)
               .Oldest = pieces(4)
               '.Categories = Split(pieces(5),",")
               .sCategories = pieces(5) 'String alone, more mem though
       End With

       strLinecount = strLinecount + 1
       End If

Next

'Make wikitable dim ts 'wikitable set ts=new FStringCat

ts.push("{| class=""wikitable sortable"" border=""1""" + vbCrLf &_

"|+ [http://toolserver.org/~svick/CleanupListing/CleanupListing.php?project=" + Escape(project)

+ " Cleanup by articles] posted " + CStr(DateValue(Now)) + vbCrLf &_ "!#" + vbCrLf &_ "!Article" + vbCrLf &_ "!Importance" + vbCrLf &_ "!Class" + vbCrLf &_ "!Count" + vbCrLf &_ "!Oldest" + vbCrLf &_ "!Categories" + vbCrLf &_ "|-" + vbCrLf) Dim i For i = 0 to (lines - 1)

       ts.push( "|" + CStr(i + 1) + vbCrLf &_
       "|" & articles(i).Name + vbCrLf &_
       "|" & articles(i).Importance + vbCrLf &_
       "|" & articles(i).Clas + vbCrLf &_
       "|" & articles(i).Count + vbCrLf &_
       "|" & articles(i).Oldest + vbCrLf &_
       "|" & articles(i).sCategories + vbCrLf &_
       "|-" + vbCrLf)

Next ts.push("|}") Erase articles 'Wikitable done

'login With oIE

   .Visible = True
   .navigate ("https://en.wikipedia.org/w/index.php?title=Special:UserLogin")'&returnto=" + 

projectpage) End With Do Until oIE.ReadyState = 4 'readystate 4 = done loading

   wscript.sleep 200

Loop With oIE.Document.forms("userlogin")

               .wpName.Value = user
               .wpPassword.Value = userpass
               .submit

End With Do Until oIE.ReadyState = 4 'readystate 4 = done loading

   wscript.sleep 200

Loop

wscript.sleep 3000 'Wait 3 seconds to make sure logged in

'Go to edit page and do preview With oIE

   .Visible = True
   .navigate ("https://en.wikipedia.org/w/index.php?title=" + projectpage + "&action=edit")

End With Do Until oIE.ReadyState = 4 'readystate 4 = done loading

   wscript.sleep 200

Loop With oIE.Document.forms("editform")

               .wpTextbox1.Value = ts.ToString()
               .wpPreview.Click

End With


'The standard looped concatenation is slooooooooooooow, this will make it 1000x faster 'http://support.microsoft.com/kb/170964 'http://www.codeproject.com/Articles/18397/High-Speed-String-Concatenation-Using-VBScript 'This portion is under the http://www.codeproject.com/info/cpol10.aspx The Code Project Open

License (CPOL) ''''''''''''''''''''''''''''''''''''''''''''''''''''''''' class XLink

   public datum
   public nextXLink

   private sub Class_Initialize
     set nextXLink=nothing
     datum=""
   end sub

end class

class FStringCat

   private sp
   private ep
   private l
   private accum

   private sub Class_Initialize
       l=0
       accum=""
       set sp=nothing
   end sub

   public sub push(what)
       accum=accum & what
       if len(accum)>2800 then
           if(sp is nothing) then
               set ep=new XLink
               set sp=ep
           else
               dim oep
               set oep=ep
               set ep=new XLink
               set oep.nextXLink=ep
           end if
           ep.datum=accum
           accum=""
           l=l+1
       end if
   end sub

   public function toString()
       if l=0 then
           toString=accum
           exit function
       end if
       ep.datum=ep.datum & accum

       while l>1 
           dim ptr
           set ptr=sp
           dim nsp
           set nsp=new XLink
           dim nep
           set nep=nsp
           dim nl
           nl=0

           while not (ptr is nothing) 
               if  nep.datum=""  then
                   nep.datum=ptr.datum
                   nl=nl+1
               else
                   if ptr.datum<>"" then nep.datum=nep.datum & ptr.datum
                   set nep.nextXLink=new XLink
                   set nep=nep.nextXLink
               end if
               set ptr=ptr.nextXLink
           wend
           set sp=nsp
           set ep=nep
           l=nl
       wend
       toString=sp.datum
   end function

end class

TO.익명사용자님들편집

계정 만듭시다.위험해요 혹시나 해커가 아이피로 해킹 할 수도 있어요.😱😱 개정만듭시다.

오늘 운수는편집

사용자:정환이/오늘의 운수

오늘의 그림편집

오늘의 그림
 
꽃이 핀 사과나무. 우크라이나에서 촬영

+/- (ko), +/- (en)

유저박스편집

 이 사용자는 위키백과 항공에 참여합니다.
🇺🇸머지?.u.s.a.???
🌡️해당 사용자는 화가 넘치다못해 폭파 일보 직전입니다.
👿❌이 사용자는 다른 사용자가 자기 문서에 장난치는것을 싫어합니다. 그런일 해서 위백에서 차단 되지 맙시다.
🧪이 사용자는 더 나은 문서 생성을 위해 오늘도 연구합니다.
🎂이 사용자의 생일은 8월 14일 입니다.
♥️이 사용자는 동생을 지극히 사랑합니다.
💥이 사용자는 동생을 때리지 않습니다.
🎗추모
이 사용자는 세월호 참사를 기억합니다.
 이 사용자는 위키백과로만 시간을 보내는
위키충입니다.
이 사용자는 스키타는것을 좋아합니다.
이 사용자는 게임 대신에 위키백과 하는것을 더 좋아합니다.
사용자 언어 정보
ko-N 이 사용자는 한국어모어입니다.
jje-5 This user has professional knowledge of Jejueo.
en-4 This user has near native speaker knowledge of English.
-3 이 使用者는 高級水準漢字의 理解가 可能합니다.
zh-3 这位用户的中文达到高级水平
fi-2 Tämä käyttäjä osaa suomea kohtalaisesti.
ja-2 この利用者は中級日本語ができます。
th-1 ผู้ใช้คนนี้มีความรู้พื้นฐานเกี่ยวกับภาษาไทย
fr-1 Cet utilisateur dispose de connaissances de base en français.
de-1 Dieser Benutzer beherrscht Deutsch auf grundlegendem Niveau.
pa-0 ਇਸ ਵਰਤੋਂਕਾਰ ਕੋਲ਼ ਪੰਜਾਬੀ ਦਾ ਗਿਆਨ ਨਹੀਂ ਹੈ (ਜਾਂ ਸਮਝਣੀ ਬਹੁਤ ਔਖੀ ਹੈ)।
nv-0 Díí choyoołʼįįhí Diné bizaad doo bił bééhózin da.
af-0 Hierdie gebruiker het geen kennis van Afrikaans nie (of verstaan dit met groot moeite).
ne-0 यी प्रयोगकर्तासित नेपाली भाषाको ज्ञान छैन (अथवा कठिनता पूर्वक बुझ्दछन्).
na-0 Amuno eman etsimine ekeow isitsiet ituga Dorerin Naoero.
eo-0 Ĉi tiu uzanto ne komprenas Esperanton, aŭ tre malfacile komprenas.
언어별 사용자
🦠❌❌❌❌ (매우싫음...)이 사용자는 코로나19를 싫어합니다.

서명편집

특수:환경설정

  1. 연구중....🧪🧪 2020년 3월 11일 (수) 13:42 (KST)
  2. 연구중....🧪🧪토론 2020년 3월 18일 (수) 01:22 (KST)
  3. 연구중....🧪🧪(토론,질문,조언) 2020년 3월 18일 (수) 11:15 (KST)
  4. 연구중....🧪🧪(토론,질문,조언,연구) 2020년 3월 18일 (수) 11:30 (KST)
  1. 연구중....🧪🧪(토론,질문,조언,연구) 2020년 3월 20일 (금) 19:05 (KST)
  2. 연구중....🧪🧪(토론,질문,조언,연구,기여) 2020년 3월 31일 (화) 22:31 (KST)

카운트다운편집

위키백과를 가입한지2100주년
위키백과 – 4120-1-9
앞으로 766840
현지 시각
(새로 고침)

제작편집


en:Spoiler (aeronautics)

연구소편집

  1. 사용자:정환이/1호실
  2. 사용자:정환이/2호실(건설중)

감시편집

블랙리스트편집

  1. 사:보민개
  2. 사:코로나바이러스감염증-19
  3. 2001:2D8:E27F:5AF8:A9B9:3326:AA99:8DA0

감시편집

  1. 사:행구
  2. 사:쥬리쓰
  3. 사:토토링
  4. 사:라이트닝 에스제이준
  5. 사:P Pion
  6. 사:되어가는중
  7. 1.246.44.69
  8. 사:이요찬
  9. 특수:기여/218.232.28.179
  10. 사용자토론:218.48.92.93
  11. 121.162.161.223